R/readcsv.R

Defines functions getDF

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)
}
seewei80/psm1 documentation built on May 23, 2020, 2:32 p.m.