Created
November 19, 2012 21:49
-
-
Save noamross/4114258 to your computer and use it in GitHub Desktop.
Use R's native data editor to edit a CSV
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#' Use the data editor for a CSV file | |
#' | |
#' This function loads a CSV file, lets the user edit it in the native data | |
#' editor, then re-saves it, prompting the user for a new file name if desired. | |
#' | |
fix.csv <- function(file, new.name=TRUE, sep=",", comment.char="") { | |
tmpframe <- read.csv(file, sep=sep,quote="", colClasses="character", | |
stringsAsFactors=FALSE, comment.char="", | |
blank.lines.skip=FALSE, na.strings="") | |
tmpframe <- edit(tmpframe) | |
if(is.character(new.name)) { | |
out.name <- new.name | |
} else if(new.name <- TRUE) { | |
out.name <- readline(prompt="Enter file name to save (Hit enter to use original):") | |
} else { | |
out.name <- file | |
} | |
if(out.name=="") out.name <- file | |
write.table(tmpframe, file=out.name, append=FALSE, quote=FALSE, sep=sep, | |
row.names=FALSE) | |
} |
Probably should be if (new.name)
on line 13 instead of if(new.name <- TRUE)
.
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
This is cool! I occasionally have to make small, permanent edits to a csv that are easier done in an editor than in code. Having to open Excel is annoying, and this is a great solution.