data-raw/Création table noms départements et régions.R

In patrickaubert/asdep: Package R pour l'analyse de l'aide sociale départementale, à partir des données statistiques de la DREES et de l'Insee

# --------------------------------------------------------------------------------------------------------------
# Création base des noms de départements
# --------------------------------------------------------------------------------------------------------------

library(dplyr)
#library(asdep)

dir <- getwd()
setwd( paste(dir,"/data-raw/",sep=""))

departements <- read.csv2("Liste des departements.csv",header=TRUE,sep=",",stringsAsFactors = FALSE,fileEncoding="utf8")
regions <- read.csv2("Liste des regions.csv",header=TRUE,sep=",",stringsAsFactors = FALSE,fileEncoding="utf8")

setwd( dir )

departementsFR <- departements %>% left_join(regions, by="NumReg")

# ===================================================================================
usethis::use_data(departementsFR,
                  overwrite = T)