getDF <- function(file){ if(!grepl(".csv$", file)){ stop("Please upload a csv file."); } df <- read.csv(file); colnames(df) <- sub(".", "_", colnames(df), fixed=TRUE); return(df) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.