Skip to content

Instantly share code, notes, and snippets.

@simkimsia
Created January 18, 2014 02:51
Show Gist options
  • Save simkimsia/8485498 to your computer and use it in GitHub Desktop.
Save simkimsia/8485498 to your computer and use it in GitHub Desktop.
unable to open the 001.csv file
getmonitor <- function(id, directory, summarize = FALSE) {
path_to_directory = paste(getwd(), directory, sep="/")
temp = list.files(path=path_to_directory, pattern="*.csv")
myfiles = lapply(temp, read.delim)
print(temp)
print(myfiles)
}
print(getwd())
data <- getmonitor(1, "specdata")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment