R/guress_read_fcn.R

In adapr: Implementation of an Accountable Data Analysis Process

#' 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)
  
}