R/ext.csv.R

In gabrielzanlorenssi/extfunctions:

#' ext.csv
#'
#' extended csv saves csv (US standard) files without row names in a data folder inside the current directory.
#'
#' @param x 
#' @param file 
#'
#' @return
#' @export
#'
#' @examples
extcsv <- function(x, file, csv=2) {
  bcdir <- getwd()
  dir <- paste(bcdir, "data", sep="/")
  set.dir(dir)
  if (csv == 2) {
  write.csv(x=x, file=file, row.names = F)
  set.dir(bcdir) } else if (csv == 1) {
  write.csv2(x=x, file=file, row.names = F)
  }
}