Nothing
#' Internal Function
#'
#' This is not to be used directly by the users.
#'
#' @export
#' @importFrom usethis use_zip
#' @keywords internal
#'
load_repo <- function(casestudy, outpath=NULL){
if (is.null(outpath)) {
outpath = getwd()
}
use_zip(paste0('opencasestudies/',casestudy), destdir = outpath,
cleanup = TRUE)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.