Nothing
getDelimiter <- function(x) {
delimiter <- ","
csvreadfile <- read.csv(x, as.is=TRUE)
# if the delimiter is not a comma, there will be only one big column
if (ncol(csvreadfile) == 1) { # try ";" separated
delimiter <- ";"
csvreadfile <- read.csv(x, sep=";", as.is=TRUE)
}
# if still the delimiter is not the right one
if (ncol(csvreadfile) == 1) { # try tab separated
delimiter <- "\t"
csvreadfile <- read.csv(x, sep="\t", as.is=TRUE)
}
# finally, if it's still not the right delimiter stop and print an error message
if (ncol(csvreadfile) == 1) {
return("unknown")
}
return(delimiter)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.