#' CreateSpp
#'
#' Create folder to store results
#' @export
CreateSpp <- function(alpha){
spp_test <- dir.exists(paste0("inst/output/", alpha))
if(!spp_test){
dir.create(paste0("inst/output/", alpha))
file.copy(from = "inst/output/.gitignore", to = paste0("inst/output/", alpha, "/.gitignore"))
dir.create(paste0("inst/output/", alpha, "/pres"))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.