inst/application/helpers/upload_table.R

In Samantha-Lui/EZRecords: Easy Bookkeeping and Stock Management for Retails

# Opens the uploaded file and reads in the content.
# @param fname A data frame containing the datapath to access the file.
# @return Content of the uploaded file.
upload_table <- function(fname){
  if(is.null(fname))
    return(data.frame())
  try(
    read.csv(fname$datapath, stringsAsFactors = FALSE, strip.white = TRUE)
  )
}