R/write_table.R

In DRosenman/dbexplorer: View and export database tables using shiny

write_table <- function(df, path) {

  extension <- tools::file_ext(path)
  fnc <- c(csv = data.table::fwrite, tsv = data.table::fwrite, xlsx = openxlsx::write.xlsx)[[extension]]
  fnc(df, path)

}