Nothing
#' Return function for reading common file types
#' @param filename for file to be read
#' @return function for reading
#' @details Uses the file suffix to return csv, read.delim, read.xls
#' @export
#' @examples
#'\dontrun{
#' identical(utils::read.csv,guess.read.fcn("data.csv"))
#'}
guess.read.fcn <- function(filename){
# returns the function for reading a file with the suffix in x
suffix <- tolower(gsub(".*\\.","",filename))
if(suffix=="csv"){return(utils::read.csv)}
if(suffix=="txt"){return(utils::read.delim)}
if(suffix %in% c("xls","xlsx")){return(gdata::read.xls)}
return(FALSE)
}
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.