#!/usr/bin/env Rscript
package_dir <- Sys.getenv("R_PACKAGE_DIR", NA)
if (is.na(package_dir))
package_dir <- find.package("reticulate")
tryCatch({
owd <- setwd(package_dir)
for (stale_pycache in grep("__pycache__$", list.dirs(recursive = TRUE), value = TRUE)) {
message("deleting: ", stale_pycache)
unlink(stale_pycache, recursive = TRUE)
}
df <- reticulate::virtualenv_starter(all = TRUE)
df <- df[order(df$version, decreasing = TRUE), ]
df$minor <- df$version[, 1:2]
df <- df[!duplicated(df$minor), ]
for (python in df$path) {
reticulate:::system2t(python, "-m compileall config python")
}
}, finally = setwd(owd))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.