--[[
Sous-module de Module:Tableau population d'article de commune de France contenant
les fonctions de génération des notes associées à des données de population
--]]
local p = {}
p.outils = require("Module:Population de France/Outils")
p.constantes = require("Module:Population de France/Constantes")
--[[
fonction de chargement des données, via module de données
retourne la structure de données (ou nil si échec de chargement)
et en seconde valeur true si les données sont complètes, un numéro d'erreur sinon
--]]
function p.charge_donnees(nom)
-- cache accès fonction (pour performances)
local mwTrim = mw.text.trim
-- vérification
if ((nom == nil) or (nom == "")) then
return nil, 1
end
local donnees = "Module:Données/" .. nom .. "/évolution population"
-- données présentes ?
local etat, data = pcall(require, donnees)
if (etat == false) then
return nil, 2
end
data.module = donnees
-- on vérifie la présence des données nécessaires
-- données communes
if ((data["nom"] == nil) or (data["division"] == nil)) then
return data, 3
end
-- division prise en charge ?
if (p.constantes.divisions[data["division"]] == nil) then
return data, 4
end
-- superficie présente ?
if ((data["superficie"] == nil) or (tonumber(data["superficie"]) == nil)) then
return data, 4
end
data["superficie"] = tonumber(data["superficie"])
-- données spécifiques (selon la division)
-- spécifiques aux communes
if ((data["division"] == "commune") or (data["division"] == "commune en DROM") or
(data["division"] == "commune en COM1") or (data["division"] == "commune nouvelle") or
(data["division"] == "commune en COM2") or (data["division"] == "commune en COM3") or
(data["division"] == "commune déléguée") or (data["division"] == "ancienne commune") or
(data["division"] == "commune associée")) then
if ((data["nom-dep"] == nil) and (data["division"] ~= "commune en DROM")) then
return data, 5 -- obligatoire, sauf pour DROM
end
if (data["insee"] == nil) then
return data, 5
end
if (data["recens-prem"] == nil) then
return data, 5
end
if (data["recens-prem"] ~= "annuel") then
if (tonumber(data["recens-prem"]) == nil) then
return data, 5 -- vaut annuel ou une année
end
data["recens-prem"] = tonumber(data["recens-prem"]) -- en cas de "
end
else
-- pour les autres il faut un recens-prem = annuel
data["recens-prem"] = "annuel"
end
-- À FAIRE pour les autres
-- on "calcule" les données qui peuvent être reconstruites
if (data["nom-wp"] == nil) then
-- reconstruction du wikilien
local nom = data.nom:gsub( ' %(.+', '' )
if nom == data.nom then
data["nom-wp"] = '[[' .. nom .. ']]'
else
data["nom-wp"] = '[[' .. data.nom .. '|' .. nom .. ']]'
end
end
-- le type (permet de regrouper toutes les communes)
data["type"] = p.constantes.divisions[data["division"]]
-- données calculées
local nb = 0 -- nombre d'années dans les données
local mmin = -1 -- min/max des années avec référence
local mmax = -1
local pmin = -1 -- population min/max
local pmax = -1
local premier = -1 -- première et dernière année
local dernier = -1
-- on reconstruit les valeurs min/max/nb
for annee, pop in pairs(data) do
if (type(annee) == "number") then
nb = nb + 1
if (pop["ref"] ~= nil) then
if (annee > mmax) then
mmax = annee
end
if ((mmin == -1) or (annee < mmin)) then
mmin = annee
end
end
vpop = tonumber(mwTrim(pop["pop"]))
if (vpop > pmax) then
pmax = vpop
end
if (vpop > 0) then -- on ne compte pas "-1" qui indique "pas de valeur"
if ((pmin == -1) or (vpop < pmin)) then
pmin = vpop
end
end
-- idem premier/dernier
if (annee > dernier) then
dernier = annee
end
if ((premier == -1) or (annee < premier)) then
premier = annee
end
end
end
if (mmin ~= -1) then
data["minref"] = mmin
end
if (mmax ~= -1) then
data["maxref"] = mmax
end
if (pmin ~= -1) then
data["popmin"] = pmin
end
if (pmax ~= -1) then
data["popmax"] = pmax
end
if (premier ~= -1) then
data["premier"] = premier
end
if (dernier ~= -1) then
data["dernier"] = dernier
end
data["nombre"] = nb-1
-- on retourne les données
return data, true
end
--[[
Calcule la variation de population (en %, signé, arrondi à 2 digits)
sur les 5 dernières années, ou nil si pas trouvé / problème
--]]
function p.variation(data)
-- vérifications
if (data == nil) then
return nil
end
if ((data["dernier"] == nil) or (data[data["dernier"]] == nil)) then
return nil
end
-- s'il n'y a pas 5 ans, on prend le plus ancien
local cible = data["dernier"]-6 -- On prend 6 ans de 2022 à 2027 en raison de l'absence de collecte en 2021, cf https://www.insee.fr/fr/statistiques/fichier/6005800/fichereport_EAR_20211115.pdf
if (data["nom-dep"] == "Mayotte" or data["nom-dep"] == "Nouvelle-Calédonie" or data["nom-dep"] == "Wallis-et-Futuna" or data["nom-dep"] == "Polynésie française") then -- Ces collectivités ne sont pas concernées par l'absence de collecte en 2021 (autre méthode de recensement)
cible = data["dernier"]-5
end
if (data[cible] == nil) then
return nil
-- désactivé
-- cible = data["premier"]
end
return p.outils.round(100*(data[data["dernier"]]["pop"] - data[cible]["pop"]) /
data[cible]["pop"], 2), cible
end
--[[
Utilise la fonction précédente pour créer la phrase "en augmentation/diminution de X % par rapport à NNN"
retourne en second paramètre +1 si augmentation, -1 si réduction, 0 si stagnation
--]]
function p.variation_texte(data)
local delta, cible = p.variation(data)
if (delta ~= nil) then
if (delta < 0) then
return "en diminution de " .. mw.language.getContentLanguage():formatNum(-delta) .. " % par rapport à " .. cible, -1
elseif (delta > 0) then
return "en augmentation de " .. mw.language.getContentLanguage():formatNum(delta) .. " % par rapport à " .. cible, 1
else -- égal
return "en stagnation par rapport à " .. cible, 0
end
else
return nil
end
end
--[[
Retourne une table contenant { année, population } correspondant
aux données les plus récentes pour cette commune
--]]
function p.valeur_recente(data)
if ((data["dernier"] == nil) or (data[data["dernier"]]["pop"] == nil)) then
return nil
end
return { data["dernier"], data[data["dernier"]]["pop"] }
end
return p
Belgekirina modulê[biafirîne]