make_repos <- function(repos) {
repodir <- file.path(tempdir(), "ghitdrat")
if (is.null(repos)) {
tmp_repos <- getOption("repos")
if ("@CRAN@" %in% tmp_repos) {
tmp_repos["CRAN"] <- "https://cloud.r-project.org"
}
repos <- tmp_repos
rm(tmp_repos)
}
c("TemporaryRepo" = paste0("file:///", repodir), repos)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.