R/write_csv_timestamp.R

In senickel/sebstoolkit2:

#' write_csv_timestamp function
#'
#' check ordinal if they are ordinal
#' @param Click here and there
#' @keywords ordinal
#' @keywords
#' @export
#' @examples
#' @importFrom data.table fwrite

write_csv_timestamp<-function(data,filepath,filename) {
  library(dplyr)
  library(data.table)
  ts<-Sys.time() %>% format(.,"%Y-%m-%d")
  filepath<-paste0(filepath,filename,ts,".csv")
  fwrite(data,filepath)
}