R/uniexport.R

In douve/UEMR: Unitat Estudi del Medicament R functions (UEMR)

.path_to_export <- function(path, filename, ext, date=FALSE) {
  n <- nchar(path)
  if (stringr::str_sub(path,start = n,end = n)!="/") path <- paste0(path,"/")
  if (date) d <- paste0("_",Sys.Date()) else d <- ""
  paste0(path,filename,d,".",ext)
}

.dots_f <- function(l, args) {
  y <- names(l)
  funs <- lapply(y, function(y) paste0(y,"::",l[[y]])) %>% unlist
  params <- lapply(funs,
                   function(x) eval(parse(text = x)) %>% formals %>% names) %>% unlist
  params <- unique(params)
  args[names(args) %in% params]
}



## uniexport: Export any kind of file used in a UEM statistical analysis project.

# 5 type of files: (Robject, Rimage, excel, csv and textfile)
# Requires the Robject, type, path and the filename

uniexport <- function(Robject,type,path,filename=NULL,date=FALSE, ...){
  elli <- list(...)
  if (is.null(filename)) filename <- deparse(substitute(Robject))
  eqDT <- data.table(
    Filetype=c("Rimage","Robject","excel","csv","textfile"),
    ext=c("RData","rds","xlsx","csv","txt"))

  if (!type %in% eqDT[,Filetype]) {
    warning('The type entered is not available. Please, choose one of the following types: (Robject, Rimage, excel, csv or textfile) ')
  }

  ext <- eqDT[Filetype==type,ext]
  ad <- .path_to_export(path,filename,ext,date)

  if (type %in% c("textfile","csv")) {
    do.call(write.table,
            c(list(x=Robject,file=ad),
              .dots_f(list(utils="write.table"),
                      c(elli,row.names=F))))
  } else if (type == "excel") {
    do.call(writexl::write_xlsx,
            c(list(x=Robject,path=ad),
              .dots_f(list(writexl="write_xlsx"),elli)))
  } else if (type == "Robject") {
    saveRDS(Robject,ad)
  } else if (type == "Rimage") {
    save.image(ad)
  }
}