R/muadc.package.R

In crazybilly/muadc: A collection of functions and variables

muadc.package  <- function(path, ... ) {
  
  dir.create(path, recursive = T, showWarnings = T)
  
  dots  <- list(...)
  
  
  text <- lapply(seq_along(dots), function(i) {
    key <- names(dots)[[i]]
    val <- dots[[i]]
    paste0(key, ": ", val)
  })
  
  
  
  if(dots$create_skel ) {
    skel(
        createbasescript = dots$createbasescript
      , basescriptname   = dots$basecriptname
      , path = path
    ) 
  }
  
  text
  
  
}