comment du code provisoire dexport de fichiers de démo

scripts/OF-export-sgbd.R

@@ -109,9 +109,10 @@ data_prep_indic <- bind_rows(data1, data2, data3, data4) %>%
 
 
 
-# export provisoire de démo
-data_prep_indic_z <-  data_prep_indic[1:50,]
-library(xlsx)
-write.xlsx(x = data_prep_indic_z,  file = "export/siclop..xlsx",  append=FALSE)
+# # export provisoire de démo
+# data_prep_indic_z <-  data_prep_indic[1:50,]
+# library(xlsx)
+# write.xlsx(x = data_prep_indic_z,  file = "export/siclop..xlsx",  append=FALSE)
+# write.table(data_prep_indic_z,file = "export/siclop.csv",row.names=FALSE,quote=FALSE, sep = ";",fileEncoding = "UTF-8")
+
 
-write.table(data_prep_indic_z,file = "export/siclop.csv",row.names=FALSE,quote=FALSE, sep = ";",fileEncoding = "UTF-8")