Nothing
# check for problems in the project's private library (e.g. broken symlinks
# to the cache or similar)
renv_library_diagnose <- function(project, libpath) {
children <- list.files(libpath, full.names = TRUE)
if (empty(children))
return(TRUE)
# if all symlinks are broken, assume the cache is missing or has been moved
missing <- !file.exists(children)
if (all(missing)) {
msg <- lines(
"The project library's symlinks to the cache are all broken.",
"Has the cache been removed, or is it otherwise inaccessible?",
paste("Cache root:", shQuote(renv_paths_cache()[[1L]]))
)
warning(msg, call. = FALSE)
return(FALSE)
}
# if only some symlinks are broken, report to user
if (any(missing)) {
caution_bullets(
"The following package(s) are missing entries in the cache:",
basename(children[missing]),
"These packages will need to be reinstalled."
)
return(FALSE)
}
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.