load_file example

1. Create the R/load.R.

load_file <- function(name, path) {
  ext <- tools::file_ext(name)
  switch(ext,
    csv = vroom::vroom(path, delim = ",", col_types = list()),
    tsv = vroom::vroom(path, delim = "\t", col_types = list()),
    shiny::validate("Invalid file; Please upload a .csv or .tsv file")
  )
}