Nothing
# NOTE: 'the$metadata' is initialized either in 'renv_metadata_init()', for
# stand-alone installations of renv, or via an embedded initialize script for
# vendored copies of renv.
renv_metadata_create <- function(embedded, version) {
list(embedded = embedded, version = version)
}
renv_metadata_embedded <- function() {
the$metadata$embedded
}
renv_metadata_version <- function() {
the$metadata$version
}
renv_metadata_version_create <- function(record) {
version <- record[["Version"]]
attr(version, "sha") <- record[["RemoteSha"]]
version
}
renv_metadata_remote <- function(metadata = the$metadata) {
# check for development versions
sha <- attr(metadata$version, "sha")
if (!is.null(sha) && nzchar(sha))
return(paste("rstudio/renv", sha, sep = "@"))
# otherwise, use release version
paste("renv", metadata$version, sep = "@")
}
renv_metadata_version_friendly <- function(metadata = the$metadata,
shafmt = NULL)
{
renv_bootstrap_version_friendly(
version = metadata$version,
shafmt = shafmt
)
}
renv_metadata_init <- function() {
# if renv was embedded, then the$metadata should already be initialized
if (!is.null(the$metadata))
return()
# renv doesn't appear to be embedded; initialize metadata
path <- renv_namespace_path("renv")
record <- renv_description_read(path = file.path(path, "DESCRIPTION"))
version <- renv_metadata_version_create(record)
the$metadata <- renv_metadata_create(
embedded = FALSE,
version = version
)
}
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.