R/qcsv.R

In nelsonroque/ruf: An R Package of Random, but Useful Functions (RUF)

#' ruf

#' @name qcsv
#' @param . class: data.frame
#' @param ts class: boolean
#' @param tz class: string
#' @examples
#' qcsv(., ts=T, tz="UTC")
#' @export
qcsv <- function(., ts=T, tz="UTC") {
  dname <- deparse(substitute(.))
  if(ts){
    ts_v <- ruf::make_tidy_datetime(timezone = tz)
    write_csv(., paste0(dname, "_", ts_v,".csv"))
  } else {
    write_csv(., paste0(dname, ".csv"))
  }
}