R/save_as_csv.R

Defines functions save_as_csv

Documented in save_as_csv

#' Function: save_as_csv
#' This function saves the dataframe as a .csv
#' @param dframe the dataframe you want to save as .csv
#' @param filename the name and path you want for your new csv file
#' @param row.names false
#' @param ... other parameters
#'
#' @return file that is saved
#' @export
#' @import dplyr
#' @importFrom utils write.csv2
#' @import assertthat
#' @examples
#' data(iris)
#' save_as_csv(iris,filename="plop.csv")
#'
#'

save_as_csv <- function(dframe, filename, row.names = FALSE, ...){
  assert_that(is.data.frame(dframe))
  assert_that(not_empty(dframe))
  assert_that(is.dir(dirname(filename)))
  assert_that(is.writeable(dirname(filename)))
  assert_that(has_extension(filename,"csv"))
  write.csv2(x = dframe, file = filename, row.names = row.names, ...)
  invisible(normalizePath(filename))
}
Cyriac96/assignment documentation built on May 28, 2019, 12:18 p.m.