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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.