getEnv | R Documentation |
getEnv()
##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function ()
{
tickets <- paste(getTickets(), ".SA", sep = "")
obj <- new.env()
objTickets <- c()
for (ticket in tickets) {
if (file.exists(paste("./Datasets/", ticket, ".csv",
sep = ""))) {
obj[[ticket]] <- read.csv(paste("./Datasets/", ticket,
".csv", sep = ""))
objTickets <- c(objTickets, ticket)
}
}
write.csv(objTickets, file = "objTickets.csv", row.names = FALSE)
return(obj)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.