Nothing
the$virtualization_type <- NULL
renv_virtualization_init <- function() {
type <- tryCatch(
renv_virtualization_type_impl(),
error = function(e) "unknown"
)
the$virtualization_type <- type
}
renv_virtualization_type <- function() {
the$virtualization_type
}
renv_virtualization_type_impl <- function() {
# only done on linux for now
if (!renv_platform_linux())
return("native")
# check for cgroup
if (file.exists("/proc/1/cgroup")) {
contents <- readLines("/proc/1/cgroup")
if (any(grepl("/docker/", contents)))
return("docker")
}
# assume native otherwise
"native"
}
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.