test4

chargement_ptz.R

 library(readr)
 library(dplyr)
 millesime = 2023
-#test3
+#test4
 # path <- paste("/nfs/data/partage-PTZ-EPTZ/PTZ-EPTZ/BASE_PTZ_DHUP_",millesime,"_DREAL.csv")
 BASE_PTZ_DHUP<- read_delim(paste0("/nfs/data/partage-PTZ-EPTZ/PTZ-EPTZ/BASE_PTZ_DHUP_",millesime,"_DREAL.csv"),
                                        delim = ";", escape_double = FALSE, trim_ws = TRUE)