read.obj <- function(file)
{
test <- read.table(file, nrows=50)
if(length(grep(",",test[30:50,2])) != 0)
out <- read.table(file,dec=",")
else
out <- read.table(file)
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.