R/get_qpv_zonage_en_vigueur.R

In phileas-condemine/Zonage_ARS: Saisie du Zonage par les ARS avec une R-Shiny App

##### QPV ######
dl_zonage_en_vigueur_qpv = function(ps,path,curr_reg){
  message("func : dl_zonage_en_vigueur_qpv")
  if (ps == "mg"){
    
    my_files = drop_dir(path)
    my_files = data.table(my_files)
    if(nrow(my_files)>0){
      my_files = my_files[grepl("^en_vigueur_qpv",name)]
      print("récupération des fichiers de zonage en vigueur")
      if (length(my_files$name)>0){
        files = lapply(my_files$name,function(en_vigueur){
          print(en_vigueur)
          drop_path = paste0(path,en_vigueur)
          local_path = paste0("data/",en_vigueur)
          drop_download(drop_path,local_path = "data/",overwrite = T)
          infos = gsub("en_vigueur_","",en_vigueur)
          infos = gsub(".csv","",infos)
          infos = gsub("qpv_","",infos)
          ps = strsplit(infos,split = "_")[[1]][1]
          reg = strsplit(infos,split = "_")[[1]][2]
          cbind(fread(local_path,colClasses = c("cod"="character")),reg=reg)
        })
        qpv_zonages_en_vigueur = rbindlist(files)
        print("fichier qpv de zonages en vigueur");print(head(qpv_zonages_en_vigueur))
        if (nrow(qpv_zonages_en_vigueur)>0){
          qpv_zonages_en_vigueur = qpv_zonages_en_vigueur[reg!=curr_reg]
          qpv_zonages_en_vigueur[,reg:=as.numeric(reg)]
          setnames(qpv_zonages_en_vigueur,"picked_zonage","en_vigueur_autre_reg")
        } else {
          qpv_zonages_en_vigueur =data.table(cod=character(), en_vigueur_autre_reg=character(), reg=numeric())
        }
      } else {
        qpv_zonages_en_vigueur =data.table(cod=character(), en_vigueur_autre_reg=character(), reg=numeric())
        
      }
    } else {
      qpv_zonages_en_vigueur =data.table(cod=character(), en_vigueur_autre_reg=character(), reg=numeric())
      
    }
    # rm(files)
    qpv_zonages_en_vigueur
  }
  
}