R/APPLY_XML_CSV_DOSSIER.R

In ECLOH/ViCaTraj: Construction et visualisation de trajectoires

#' @export
APPLY_XML_CSV_DOSSIER<-function(emplacement.dossier = "C:/Users/019294/Desktop/XML_IMPORT/DOSSIER_IMPORT_XML"){
  list.files(emplacement.dossier)->fichiers
  lapply(fichiers, function(file.name){
    paste(emplacement.dossier, file.name, sep="/")
  })->list.files
  list.files[grepl(pattern=".xml", x = list.files, fixed=TRUE)]->list.xml.files
  
  list.xml.files.NOM<-lapply(list.xml.files, function(xi){gsub(pattern = ".xml", "", x = xi, fixed=TRUE)})
  
  list.files[grepl(pattern=".csv", x = list.files, fixed=TRUE)]->list.csv.files
  list.csv.files.NOM<-lapply(list.csv.files, function(xi){
    gsub(pattern = ".csv", "", x = xi, fixed=TRUE)->x2
    return(x2)
  })
  
  
  lapply(list.xml.files.NOM, function(xi){
    if(xi %in% unique(unlist(list.csv.files.NOM))){
      NULL
    } else {paste(xi, ".xml", sep="") }
  })->list.xml.files
  
  list.xml.files[lengths(list.xml.files) != 0]->list.xml.files
  
  
  message(paste("Nombre de fichers xml dans le dossier sans contrepartie en csv: ", length(list.xml.files)))
  lapply(list.xml.files, function(listi){
    list("SOURCE"=listi, "DESTINATION"=gsub(pattern = ".xml", replacement = ".csv", x = listi, fixed = TRUE))
  })->list.de.noms
  lapply(list.de.noms, FUN = function(listi){
    message(paste("FROM :",  listi$SOURCE, "| TO :", listi$DESTINATION))
    message("...")
    
    XML_TO_CSV(chemin.xml = listi$SOURCE, chemin.destination = listi$DESTINATION, return.df=FALSE, save.csv=TRUE)
  })
}


# APPLY_XML_CSV_DOSSIER<-function(emplacement.dossier = "C:/Users/019294/Desktop/XML_IMPORT/DOSSIER_IMPORT_XML"){
#   list.files(emplacement.dossier)->fichiers
#   lapply(fichiers, function(file.name){
#     paste(emplacement.dossier, file.name, sep="/")
#   })->list.files
#   list.files[grepl(pattern=".xml", x = list.files, fixed=TRUE)]->list.xml.files
#   message(paste("Nombre de fichers xml dans le dossier: ", length(list.xml.files)))
#   lapply(list.xml.files, function(listi){
#     list("SOURCE"=listi, "DESTINATION"=gsub(pattern = ".xml", replacement = ".csv", x = listi, fixed = TRUE))
#   })->list.de.noms
#   lapply(list.de.noms, FUN = function(listi){
#     message(paste("FROM :",  listi$SOURCE, "| TO :", listi$DESTINATION))
#     message("...")
#     
#     XML_TO_CSV(chemin.xml = listi$SOURCE, chemin.destination = listi$DESTINATION, return.df=FALSE, save.csv=TRUE)
#   })
# }