R/udar.package.R

In crazybilly/ucbudar: A collection of functions and variables for working with data at UC Berkeley UDAR

udar.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


}