R/save_as_csv.R

In SachaIZADI/R-for-datascience-Package-Training: A package to practice with Git & R packages

#' Save a data.frame in a csv file
#'
#' @param dataset your data.frame
#' @param filename the name of the file (it could be a path) - you have to put ".csv" at the end
#' @import assertthat
#' @return nothing
#' @export
#'
#' @examples
#' \dontrun{
#' save_as_csv("machin.csv")
#' }
#'
#'



save_as_csv <- function(dataset,filename, row.names=FALSE, ...){
  assert_that(has_extension(filename,"csv"))
  assert_that(is.dir(dirname(filename)))
  assert(is.writeable(dirname(filename)))
  assert_that(not_empty(dataset))
  assert_that(is.data.frame(dataset))

  write.csv2(x=dataset, file=filename, row.names = row.names, ...)

  invisible(normalizePath(filename))
}