R/writeTableToCSV.R

In wStockhausen/wtsGIS: Functions, Rmd scripts, and datasets to facilitate GIS operations

#'
#' @title Write a table (without geometry) as a csv file
#'
#' @description Function to write a table (without geometry) as a csv file.
#'
#' @param tbl - table (sf, tibble, or dataframe object)
#' @param file - file name
#'
#' @return invisible NULL
#'
#' @details Requires \code{sf} package. If \code{tbl} is a
#' \code{sf} object (i.e., with geometry information), the
#' geometry information is dropped.
#'
#' @importFrom sf st_drop_geometry
#' @importFrom utils write.csv
#'
#' @export
#'
writeTableToCSV<-function(tbl,
                           file="table.csv"){
  if (inherits(tbl,"sf")){
    utils::write.csv(sf::st_drop_geometry(tbl),file=file,row.names=FALSE);
  } else {
    utils::write.csv(tbl,file=file,row.names=FALSE);
  }
  return(invisible(NULL));
}