ajouter un en-tête de fichier créé par “écrire.csv”

Je suis en train d'automatiser certaines données de l'exportation, et je voudrais ajouter un en-tête de chaque fichier comme "s'il vous plaît citer Bob et Jane 2008" ... ou même quelques lignes d'instructions spécifiques en fonction du contexte.

J'ai regardé l'écriture.csv et de l'écriture.le tableau de la documentation, mais ne pas voir une telle fonctionnalité.

Quelle est la meilleure façon d'atteindre cet objectif?

  • Vous pouvez utiliser writeLines pour ajouter un en-tête et leur write.csv avec l'option append=TRUE à écrire vos données.
  • append est ignoré et automatiquement mis à F pour write.csv, utilisez write.table, sep = ',' à la place.
InformationsquelleAutor Abe | 2012-09-12
  1. 17

    Ici deux approches sont possibles - la solution sous MODIFIER à l'aide de connexions est plus souple et efficace.

    À l'aide de write.table(...,append = T) et cat

    • Utilisation append=T dans un appel à write.table, ayant cat l'en-tête il y a déjà

    enveloppé dans sa propre fonction....

    write.table_with_header <- function(x, file, header, ...){
  cat(header, '\n',  file = file)
  write.table(x, file, append = T, ...)
}

    Noter que append est ignoré dans une write.csv appel, il vous suffit d'appeler

    write.table_with_header(x,file,header,sep=',')

    et ce sera le résultat dans un fichier csv.

    MODIFIER

    à l'aide de connexions

    (Merci à @flodel dont la suggestion est-ce)

    my.write <- function(x, file, header, f = write.csv, ...){
# create and open the file connection
  datafile <- file(file, open = 'wt')
# close on exit
  on.exit(close(datafile))
# if a header is defined, write it to the file (@CarlWitthoft's suggestion)
  if(!missing(header)) writeLines(header,con=datafile)
# write the file using the defined function and required addition arguments  
  f(x, datafile,...)
}

    Noter que cette version vous permet d'utiliser write.csv ou write.table ou de toute fonction et utilise un fichier de connexion qui
    (comme @flodel points dans les commentaires)
    ouvrir et fermer uniquement une fois le fichier, et l'ajoute automatiquement. Par conséquent, il est plus efficace!

    • Pensez à utiliser file et close pour ouvrir et fermer un fichier de connexion. Sinon, à vous de l'ouverture et de la fermeture du fichier deux fois, ce qui est un peu inefficace. Avec une connexion ouverte, vous êtes toujours à la précédente, de sorte que vous n'aurez pas besoin append = TRUE, et vous pouvez les utiliser write.csv.
    • génial!
    • Pour en faire un complètement modulable, peut-être ajouter une ligne de sorte qu'il fonctionne même sans en-tête. Quelque chose comme if(!missing(header)) writelines(headder,con=datafile) . Ensuite, vous pouvez l'appeler "mywrite" 🙂 au lieu de "à écrire.avec.l'en-tête.peut-être"
    • De bonnes idées et de mise en œuvre
    • 2ème fonction (mon.écrire) a travaillé pour moi comme. 1ère fonction (écrire.table_with_header) nécessaire "rownames = F"; envisager de déplacer le "modifier" en haut, dans le cas où une personne est paresseux comme moi et n'a pas de défilement vers le bas
    InformationsquelleAutor mnel