R/quickcsv.R

In neugelb/neugelbtools: Various small Neugelb tools

#' quickcsv
#'
#' A shortcut for writing CSV files
#' @param df Your dataframe
#' @param file Part of the file name (this will be wrapped with today's today)
#' @export

quickcsv <- function(df,file) {
  today <- Sys.Date()

  today <- gsub("-","",today)

  filename <- paste(today,"-",file,'.csv',sep="")

  x <- write.table(df,file=filename,sep=",",row.names = FALSE)
}