Skip to content

Instantly share code, notes, and snippets.

@dfalster

dfalster/csv_metadata.R

Created January 3, 2014 01:27
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save dfalster/8230860 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save dfalster/8230860 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. dfalster renamed this gist Jan 3, 2014. 1 changed file with 0 additions and 0 deletions.
    0 csv_metadata → csv_metadata.R
    View file
    File renamed without changes.
  2. dfalster created this gist Jan 3, 2014.
    5 changes: 5 additions & 0 deletions csv_metadata
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,5 @@
    csv_metadata <- function(filename){
    data <- read.csv(filename, stringsAsFactors=FALSE, fill=TRUE, header=TRUE, check.names = FALSE)
    write.csv(data.frame(variable=names(data), units="",description="", notes=""), quote=TRUE, row.names=FALSE,
    file = file.path(dirname(filename), paste0("metadata_",basename(filename))))
    }