Nothing
tests/testthat/test-retrieve.R
In renv: Project Environments
test_that("we can retrieve packages from CRAN", {
skip_slow()
renv_tests_scope()
record <- list(
Package = "oatmeal",
Version = "1.0.0",
Source = "CRAN"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from the CRAN archive", {
skip_slow()
renv_tests_scope()
record <- list(
Package = "bread",
Version = "0.1.0",
Source = "CRAN"
)
renv_test_retrieve(record)
})
test_that("packages with an unknown source are retrieved from CRAN", {
skip_slow()
renv_tests_scope()
record <- list(
Package = "bread",
Version = "0.1.0",
Source = "unknown"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from Bitbucket", {
skip_on_cran()
skip("unreliable test")
record <- list(
Package = "skeleton",
Source = "bitbucket",
RemoteRepo = "skeleton",
RemoteUsername = "kevinushey",
RemoteSha = "958296dbbbf7f1d82f7f5dd1b121c7558604809f"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from git", {
skip_on_cran()
skip("unreliable test")
record <- list(
Package = "skeleton",
Source = "git",
RemoteUrl = "git://github.com/kevinushey/skeleton.git",
RemoteSha = "958296dbbbf7f1d82f7f5dd1b121c7558604809f"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages with git dependencies", {
skip_on_cran()
skip_slow()
# GitHub doesn't like ssh (used as remote field in renv.git1)
skip_on_ci()
record <- list(
Package = "renv.git1",
Source = "git",
RemoteUrl = "https://github.com/kevinushey/renv.git1",
RemoteRef = "main"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from GitHub", {
skip_slow()
record <- list(
Package = "skeleton",
Source = "github",
RemoteUsername = "kevinushey",
RemoteRepo = "skeleton",
RemoteSha = "958296dbbbf7f1d82f7f5dd1b121c7558604809f"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from GitHub (in a sub-directory)", {
skip_slow()
record <- list(
Package = "subdir",
Source = "github",
RemoteUsername = "kevinushey",
RemoteRepo = "subdir",
RemoteSubdir = "subdir",
RemoteSha = "100373b23c8adae1da4e4d6995402d40e9227cfb"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from GitLab", {
skip_slow()
record <- list(
Package = "skeleton",
Source = "gitlab",
RemoteUsername = "kevinushey",
RemoteRepo = "skeleton",
RemoteSha = "958296dbbbf7f1d82f7f5dd1b121c7558604809f"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages with URLs", {
skip_slow()
url <- "https://api.github.com/repos/kevinushey/skeleton/tarball"
record <- renv_remotes_resolve(url)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from URL sources", {
skip_slow()
renv_tests_scope()
renv_scope_local()
record <- list(
Package = "skeleton",
Version = "1.0.1",
Source = "URL",
RemoteType = "url",
RemoteUrl = "https://api.github.com/repos/kevinushey/skeleton/tarball"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from local sources", {
renv_tests_scope()
renv_scope_local()
record <- list(
Package = "skeleton",
Version = "1.0.1",
Source = "local"
)
renv_test_retrieve(record)
})
test_that("compatible local sources are preferred when available", {
renv_tests_scope()
renv_scope_local()
record <- list(
Package = "skeleton",
Version = "1.0.1",
Source = "CRAN"
)
renv_test_retrieve(record)
record <- list(
Package = "skeleton",
Version = "1.0.1",
Source = "unknown"
)
renv_test_retrieve(record)
})
test_that("an explicitly-provided local source path can be used", {
renv_tests_scope()
renv_scope_local()
source <- renv_tests_path("local/skeleton/skeleton_1.0.1.tar.gz")
renv_scope_wd(tempdir())
record <- list(
Package = "skeleton",
Version = "1.0.1",
Source = source
)
renv_test_retrieve(record)
})
test_that("explicit path to binary packages work", {
skip_if_not(renv_platform_macos())
renv_tests_scope()
renv_scope_local()
# make sure we have a binary package in the cellar to test with
srcpath <- renv_tests_path("local/skeleton/skeleton_1.0.1.tar.gz")
binpath <- renv_tests_path("local/skeleton/skeleton_1.0.1.tgz")
defer(unlink(binpath))
# create the binary
local({
renv_scope_wd(dirname(srcpath))
args <- c("CMD", "INSTALL", "--build", basename(srcpath))
renv_system_exec(R(), args)
})
record <- list(
Package = "skeleton",
Version = "1.0.1",
Source = binpath
)
renv_test_retrieve(record)
})
test_that("remotes::install_local() records are handled", {
renv_scope_envvars(RENV_PATHS_LOCAL = NULL)
record <- list(
Package = "skeleton",
Version = "1.0.1",
Source = "local",
RemoteUrl = renv_tests_path("local/skeleton/skeleton_1.0.1.tar.gz")
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from GitHub", {
skip_slow()
record <- list(
Package = "skeleton",
Source = "github",
RemoteHost = "https://api.github.com",
RemoteUsername = "kevinushey",
RemoteRepo = "skeleton",
RemoteSha = "958296dbbbf7f1d82f7f5dd1b121c7558604809f"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from R repositories", {
skip_on_cran()
renv_tests_scope()
record <- list(
Package = "oatmeal",
Version = "1.0.0",
Source = "Repository",
Repository = "CRAN"
)
renv_test_retrieve(record)
})
test_that("failed binary downloads are quiet when a source fallback succeeds", {
skip_on_cran()
skip_if(identical(.Platform$pkgType, "source"))
renv_tests_scope(isolated = TRUE)
# create a repository containing a source tarball for 'bread'
repopath <- renv_scope_tempfile("renv-repos-")
srccontrib <- file.path(repopath, "src/contrib")
ensure_directory(srccontrib)
tarball <- file.path(srccontrib, "bread_1.0.0.tar.gz")
local({
renv_scope_wd(renv_tests_path("packages"))
tar(tarball, "bread", compression = "gzip", tar = "internal")
})
write_PACKAGES(srccontrib, type = "source")
# advertise a binary package without actually providing its archive
bincontrib <- paste0(repopath, contrib.url("", type = .Platform$pkgType))
ensure_directory(bincontrib)
file.copy(file.path(srccontrib, "PACKAGES"), bincontrib)
fmt <- if (renv_platform_windows()) "file:///%s" else "file://%s"
renv_scope_options(
pkgType = "both",
repos = c(CRAN = sprintf(fmt, repopath)),
renv.verbose = TRUE
)
record <- list(
Package = "bread",
Version = "1.0.0",
Source = "Repository"
)
library <- renv_scope_tempfile("renv-library-")
ensure_directory(library)
renv_scope_restore(
project = getwd(),
library = library,
records = list(bread = record),
packages = "bread",
recursive = TRUE
)
output <- capture.output(status <- renv_retrieve_repos(record))
# the failed binary download should be suppressed,
# while the successful source download is still reported
expect_true(status)
expect_false(any(grepl("ERROR", output, fixed = TRUE)))
expect_true(any(grepl("OK", output, fixed = TRUE)))
})
test_that("download errors are reported when all retrieval candidates fail", {
skip_on_cran()
renv_tests_scope(isolated = TRUE)
# create a repository advertising a package whose archive is missing
repopath <- renv_scope_tempfile("renv-repos-")
srccontrib <- file.path(repopath, "src/contrib")
ensure_directory(srccontrib)
tarball <- file.path(srccontrib, "bread_1.0.0.tar.gz")
local({
renv_scope_wd(renv_tests_path("packages"))
tar(tarball, "bread", compression = "gzip", tar = "internal")
})
write_PACKAGES(srccontrib, type = "source")
unlink(tarball)
fmt <- if (renv_platform_windows()) "file:///%s" else "file://%s"
renv_scope_options(
pkgType = "source",
repos = c(CRAN = sprintf(fmt, repopath)),
renv.verbose = TRUE
)
record <- list(
Package = "bread",
Version = "1.0.0",
Source = "Repository"
)
library <- renv_scope_tempfile("renv-library-")
ensure_directory(library)
renv_scope_restore(
project = getwd(),
library = library,
records = list(bread = record),
packages = "bread",
recursive = TRUE
)
# NOTE: download errors are reported via 'warning(<error>)', so they are
# signaled with their original condition class -- collect and muffle them
# here so they don't unwind to an enclosing tryCatch()
warnings <- list()
output <- capture.output(
status <- catch(
withCallingHandlers(
renv_retrieve_repos(record),
condition = function(cnd) {
if (inherits(cnd, "error") && !is.null(findRestart("muffleWarning"))) {
warnings[[length(warnings) + 1L]] <<- cnd
invokeRestart("muffleWarning")
}
}
)
)
)
expect_s3_class(status, "error")
expect_match(conditionMessage(status), "failed to retrieve")
# the failed download transcript is replayed
expect_true(any(grepl("ERROR", output, fixed = TRUE)))
# each failure is reported only once
messages <- map_chr(warnings, conditionMessage)
expect_false(any(duplicated(messages)))
})
test_that("we can retrieve files using file URIs", {
skip_on_cran()
renv_tests_scope()
source <- file.path(getwd(), "source")
target <- file.path(getwd(), "target")
writeLines("Hello, world!", con = source)
# plain 'file:' URI with no authority
uri <- paste("file:", source, sep = "")
download(uri, destfile = target)
expect_equal(readLines(target), "Hello, world!")
unlink(target)
# file URI using empty authority
prefix <- if (renv_platform_windows()) "file:///" else "file://"
uri <- paste(prefix, source, sep = "")
download(uri, destfile = target)
expect_equal(readLines(target), "Hello, world!")
unlink(target)
})
test_that("records with RemoteSha successfully retrieved from archives", {
renv_tests_scope()
record <- list(
Package = "bread",
Version = "0.1.0",
Source = "Repository",
RemoteSha = "oops"
)
renv_test_retrieve(record)
})
test_that("we respect the default branch for gitlab repositories", {
skip_on_cran()
remote <- renv_remotes_resolve("gitlab::kevinushey/main")
expect_equal(remote$RemoteRef, "main")
})
test_that("renv can retrieve the latest release associated with a project", {
skip_if_no_github_auth()
remote <- renv_remotes_resolve("rstudio/keras@*release")
expect_true(is.list(remote))
})
test_that("retrieve handles local sources", {
skip_on_cran()
renv_tests_scope()
renv_scope_options(renv.config.cache.enabled = FALSE)
record <- list(
Package = "bread",
Version = "1.0.0",
Source = "bread_1.0.0.tar.gz"
)
expect_error(renv_test_retrieve(record))
# call download.packages once to get URL
url <- download.packages("bread", destdir = getwd())
if (!file.exists(record$Source))
file.copy(url[1, 2], record$Source)
renv_test_retrieve(record)
})
test_that("explicitly local packages fall back to repository sources", {
renv_tests_scope()
renv_scope_options(renv.config.cache.enabled = FALSE)
record <- list(
Package = "bread",
Version = "1.0.0",
Source = "Local"
)
renv_test_retrieve(record)
})
test_that("we can use retrieve() to download packages without installing", {
project <- renv_tests_scope()
init()
result <- retrieve(packages = "breakfast")
expect_false(renv_package_installed("breakfast"))
expect_contains(names(result), "breakfast")
expect_contains(names(result), "bread")
result <- retrieve(packages = "bread", destdir = ".")
expect_equal(result, c(bread = "./bread_1.0.0.tar.gz"))
install("bread")
result <- retrieve(packages = "bread", destdir = ".")
expect_equal(result, c(bread = "./bread_1.0.0.tar.gz"))
})
test_that("renv_retrieve_libpaths_impl reuses a compatible installed package", {
# https://github.com/rstudio/renv/issues/2288 — the built-version check used
# to compare a version string to TRUE, which always failed, so the user /
# site library shortcut never fired and renv would needlessly download.
renv_tests_scope()
# install bread 1.0.0 into a temporary "user library"
userlib <- renv_scope_tempfile("renv-userlib-")
ensure_directory(userlib)
install("bread", library = userlib)
# set up restore state so renv_retrieve_successful() has somewhere to record
templib <- renv_scope_tempfile("renv-library-")
ensure_directory(templib)
renv_scope_libpaths(c(templib, .libPaths()))
record <- list(
Package = "bread",
Version = "1.0.0",
Source = "Repository",
Repository = "CRAN"
)
renv_scope_restore(
project = getwd(),
library = templib,
records = list(bread = record),
packages = "bread",
recursive = TRUE
)
expect_true(renv_retrieve_libpaths_impl(record, userlib))
state <- renv_restore_state()
expect_true(state$install$contains("bread"))
expect_equal(state$install$get("bread")$Path, file.path(userlib, "bread"))
})
test_that("renv_retrieve_libpaths_impl rejects packages built for a different R version", {
renv_tests_scope()
# the file-backed DESCRIPTION cache would otherwise return the original
# Built field after we mutate the file below
renv_scope_options(renv.config.filebacked.cache = FALSE)
userlib <- renv_scope_tempfile("renv-userlib-")
ensure_directory(userlib)
install("bread", library = userlib)
# rewrite the Built field to claim an R version we definitely aren't using
descpath <- file.path(userlib, "bread", "DESCRIPTION")
text <- readLines(descpath)
text <- sub("^Built: R [0-9.]+", "Built: R 0.0.0", text)
writeLines(text, descpath)
templib <- renv_scope_tempfile("renv-library-")
ensure_directory(templib)
renv_scope_libpaths(c(templib, .libPaths()))
record <- list(
Package = "bread",
Version = "1.0.0",
Source = "Repository",
Repository = "CRAN"
)
renv_scope_restore(
project = getwd(),
library = templib,
records = list(bread = record),
packages = "bread",
recursive = TRUE
)
expect_false(renv_retrieve_libpaths_impl(record, userlib))
})
Try the renv package in your browser
Any scripts or data that you put into this service are public.
renv documentation built on Aug. 4, 2026, 1:09 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("we can retrieve packages from CRAN", {
skip_slow()
renv_tests_scope()
record <- list(
Package = "oatmeal",
Version = "1.0.0",
Source = "CRAN"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from the CRAN archive", {
skip_slow()
renv_tests_scope()
record <- list(
Package = "bread",
Version = "0.1.0",
Source = "CRAN"
)
renv_test_retrieve(record)
})
test_that("packages with an unknown source are retrieved from CRAN", {
skip_slow()
renv_tests_scope()
record <- list(
Package = "bread",
Version = "0.1.0",
Source = "unknown"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from Bitbucket", {
skip_on_cran()
skip("unreliable test")
record <- list(
Package = "skeleton",
Source = "bitbucket",
RemoteRepo = "skeleton",
RemoteUsername = "kevinushey",
RemoteSha = "958296dbbbf7f1d82f7f5dd1b121c7558604809f"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from git", {
skip_on_cran()
skip("unreliable test")
record <- list(
Package = "skeleton",
Source = "git",
RemoteUrl = "git://github.com/kevinushey/skeleton.git",
RemoteSha = "958296dbbbf7f1d82f7f5dd1b121c7558604809f"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages with git dependencies", {
skip_on_cran()
skip_slow()
# GitHub doesn't like ssh (used as remote field in renv.git1)
skip_on_ci()
record <- list(
Package = "renv.git1",
Source = "git",
RemoteUrl = "https://github.com/kevinushey/renv.git1",
RemoteRef = "main"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from GitHub", {
skip_slow()
record <- list(
Package = "skeleton",
Source = "github",
RemoteUsername = "kevinushey",
RemoteRepo = "skeleton",
RemoteSha = "958296dbbbf7f1d82f7f5dd1b121c7558604809f"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from GitHub (in a sub-directory)", {
skip_slow()
record <- list(
Package = "subdir",
Source = "github",
RemoteUsername = "kevinushey",
RemoteRepo = "subdir",
RemoteSubdir = "subdir",
RemoteSha = "100373b23c8adae1da4e4d6995402d40e9227cfb"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from GitLab", {
skip_slow()
record <- list(
Package = "skeleton",
Source = "gitlab",
RemoteUsername = "kevinushey",
RemoteRepo = "skeleton",
RemoteSha = "958296dbbbf7f1d82f7f5dd1b121c7558604809f"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages with URLs", {
skip_slow()
url <- "https://api.github.com/repos/kevinushey/skeleton/tarball"
record <- renv_remotes_resolve(url)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from URL sources", {
skip_slow()
renv_tests_scope()
renv_scope_local()
record <- list(
Package = "skeleton",
Version = "1.0.1",
Source = "URL",
RemoteType = "url",
RemoteUrl = "https://api.github.com/repos/kevinushey/skeleton/tarball"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from local sources", {
renv_tests_scope()
renv_scope_local()
record <- list(
Package = "skeleton",
Version = "1.0.1",
Source = "local"
)
renv_test_retrieve(record)
})
test_that("compatible local sources are preferred when available", {
renv_tests_scope()
renv_scope_local()
record <- list(
Package = "skeleton",
Version = "1.0.1",
Source = "CRAN"
)
renv_test_retrieve(record)
record <- list(
Package = "skeleton",
Version = "1.0.1",
Source = "unknown"
)
renv_test_retrieve(record)
})
test_that("an explicitly-provided local source path can be used", {
renv_tests_scope()
renv_scope_local()
source <- renv_tests_path("local/skeleton/skeleton_1.0.1.tar.gz")
renv_scope_wd(tempdir())
record <- list(
Package = "skeleton",
Version = "1.0.1",
Source = source
)
renv_test_retrieve(record)
})
test_that("explicit path to binary packages work", {
skip_if_not(renv_platform_macos())
renv_tests_scope()
renv_scope_local()
# make sure we have a binary package in the cellar to test with
srcpath <- renv_tests_path("local/skeleton/skeleton_1.0.1.tar.gz")
binpath <- renv_tests_path("local/skeleton/skeleton_1.0.1.tgz")
defer(unlink(binpath))
# create the binary
local({
renv_scope_wd(dirname(srcpath))
args <- c("CMD", "INSTALL", "--build", basename(srcpath))
renv_system_exec(R(), args)
})
record <- list(
Package = "skeleton",
Version = "1.0.1",
Source = binpath
)
renv_test_retrieve(record)
})
test_that("remotes::install_local() records are handled", {
renv_scope_envvars(RENV_PATHS_LOCAL = NULL)
record <- list(
Package = "skeleton",
Version = "1.0.1",
Source = "local",
RemoteUrl = renv_tests_path("local/skeleton/skeleton_1.0.1.tar.gz")
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from GitHub", {
skip_slow()
record <- list(
Package = "skeleton",
Source = "github",
RemoteHost = "https://api.github.com",
RemoteUsername = "kevinushey",
RemoteRepo = "skeleton",
RemoteSha = "958296dbbbf7f1d82f7f5dd1b121c7558604809f"
)
renv_test_retrieve(record)
})
test_that("we can retrieve packages from R repositories", {
skip_on_cran()
renv_tests_scope()
record <- list(
Package = "oatmeal",
Version = "1.0.0",
Source = "Repository",
Repository = "CRAN"
)
renv_test_retrieve(record)
})
test_that("failed binary downloads are quiet when a source fallback succeeds", {
skip_on_cran()
skip_if(identical(.Platform$pkgType, "source"))
renv_tests_scope(isolated = TRUE)
# create a repository containing a source tarball for 'bread'
repopath <- renv_scope_tempfile("renv-repos-")
srccontrib <- file.path(repopath, "src/contrib")
ensure_directory(srccontrib)
tarball <- file.path(srccontrib, "bread_1.0.0.tar.gz")
local({
renv_scope_wd(renv_tests_path("packages"))
tar(tarball, "bread", compression = "gzip", tar = "internal")
})
write_PACKAGES(srccontrib, type = "source")
# advertise a binary package without actually providing its archive
bincontrib <- paste0(repopath, contrib.url("", type = .Platform$pkgType))
ensure_directory(bincontrib)
file.copy(file.path(srccontrib, "PACKAGES"), bincontrib)
fmt <- if (renv_platform_windows()) "file:///%s" else "file://%s"
renv_scope_options(
pkgType = "both",
repos = c(CRAN = sprintf(fmt, repopath)),
renv.verbose = TRUE
)
record <- list(
Package = "bread",
Version = "1.0.0",
Source = "Repository"
)
library <- renv_scope_tempfile("renv-library-")
ensure_directory(library)
renv_scope_restore(
project = getwd(),
library = library,
records = list(bread = record),
packages = "bread",
recursive = TRUE
)
output <- capture.output(status <- renv_retrieve_repos(record))
# the failed binary download should be suppressed,
# while the successful source download is still reported
expect_true(status)
expect_false(any(grepl("ERROR", output, fixed = TRUE)))
expect_true(any(grepl("OK", output, fixed = TRUE)))
})
test_that("download errors are reported when all retrieval candidates fail", {
skip_on_cran()
renv_tests_scope(isolated = TRUE)
# create a repository advertising a package whose archive is missing
repopath <- renv_scope_tempfile("renv-repos-")
srccontrib <- file.path(repopath, "src/contrib")
ensure_directory(srccontrib)
tarball <- file.path(srccontrib, "bread_1.0.0.tar.gz")
local({
renv_scope_wd(renv_tests_path("packages"))
tar(tarball, "bread", compression = "gzip", tar = "internal")
})
write_PACKAGES(srccontrib, type = "source")
unlink(tarball)
fmt <- if (renv_platform_windows()) "file:///%s" else "file://%s"
renv_scope_options(
pkgType = "source",
repos = c(CRAN = sprintf(fmt, repopath)),
renv.verbose = TRUE
)
record <- list(
Package = "bread",
Version = "1.0.0",
Source = "Repository"
)
library <- renv_scope_tempfile("renv-library-")
ensure_directory(library)
renv_scope_restore(
project = getwd(),
library = library,
records = list(bread = record),
packages = "bread",
recursive = TRUE
)
# NOTE: download errors are reported via 'warning(<error>)', so they are
# signaled with their original condition class -- collect and muffle them
# here so they don't unwind to an enclosing tryCatch()
warnings <- list()
output <- capture.output(
status <- catch(
withCallingHandlers(
renv_retrieve_repos(record),
condition = function(cnd) {
if (inherits(cnd, "error") && !is.null(findRestart("muffleWarning"))) {
warnings[[length(warnings) + 1L]] <<- cnd
invokeRestart("muffleWarning")
}
}
)
)
)
expect_s3_class(status, "error")
expect_match(conditionMessage(status), "failed to retrieve")
# the failed download transcript is replayed
expect_true(any(grepl("ERROR", output, fixed = TRUE)))
# each failure is reported only once
messages <- map_chr(warnings, conditionMessage)
expect_false(any(duplicated(messages)))
})
test_that("we can retrieve files using file URIs", {
skip_on_cran()
renv_tests_scope()
source <- file.path(getwd(), "source")
target <- file.path(getwd(), "target")
writeLines("Hello, world!", con = source)
# plain 'file:' URI with no authority
uri <- paste("file:", source, sep = "")
download(uri, destfile = target)
expect_equal(readLines(target), "Hello, world!")
unlink(target)
# file URI using empty authority
prefix <- if (renv_platform_windows()) "file:///" else "file://"
uri <- paste(prefix, source, sep = "")
download(uri, destfile = target)
expect_equal(readLines(target), "Hello, world!")
unlink(target)
})
test_that("records with RemoteSha successfully retrieved from archives", {
renv_tests_scope()
record <- list(
Package = "bread",
Version = "0.1.0",
Source = "Repository",
RemoteSha = "oops"
)
renv_test_retrieve(record)
})
test_that("we respect the default branch for gitlab repositories", {
skip_on_cran()
remote <- renv_remotes_resolve("gitlab::kevinushey/main")
expect_equal(remote$RemoteRef, "main")
})
test_that("renv can retrieve the latest release associated with a project", {
skip_if_no_github_auth()
remote <- renv_remotes_resolve("rstudio/keras@*release")
expect_true(is.list(remote))
})
test_that("retrieve handles local sources", {
skip_on_cran()
renv_tests_scope()
renv_scope_options(renv.config.cache.enabled = FALSE)
record <- list(
Package = "bread",
Version = "1.0.0",
Source = "bread_1.0.0.tar.gz"
)
expect_error(renv_test_retrieve(record))
# call download.packages once to get URL
url <- download.packages("bread", destdir = getwd())
if (!file.exists(record$Source))
file.copy(url[1, 2], record$Source)
renv_test_retrieve(record)
})
test_that("explicitly local packages fall back to repository sources", {
renv_tests_scope()
renv_scope_options(renv.config.cache.enabled = FALSE)
record <- list(
Package = "bread",
Version = "1.0.0",
Source = "Local"
)
renv_test_retrieve(record)
})
test_that("we can use retrieve() to download packages without installing", {
project <- renv_tests_scope()
init()
result <- retrieve(packages = "breakfast")
expect_false(renv_package_installed("breakfast"))
expect_contains(names(result), "breakfast")
expect_contains(names(result), "bread")
result <- retrieve(packages = "bread", destdir = ".")
expect_equal(result, c(bread = "./bread_1.0.0.tar.gz"))
install("bread")
result <- retrieve(packages = "bread", destdir = ".")
expect_equal(result, c(bread = "./bread_1.0.0.tar.gz"))
})
test_that("renv_retrieve_libpaths_impl reuses a compatible installed package", {
# https://github.com/rstudio/renv/issues/2288 — the built-version check used
# to compare a version string to TRUE, which always failed, so the user /
# site library shortcut never fired and renv would needlessly download.
renv_tests_scope()
# install bread 1.0.0 into a temporary "user library"
userlib <- renv_scope_tempfile("renv-userlib-")
ensure_directory(userlib)
install("bread", library = userlib)
# set up restore state so renv_retrieve_successful() has somewhere to record
templib <- renv_scope_tempfile("renv-library-")
ensure_directory(templib)
renv_scope_libpaths(c(templib, .libPaths()))
record <- list(
Package = "bread",
Version = "1.0.0",
Source = "Repository",
Repository = "CRAN"
)
renv_scope_restore(
project = getwd(),
library = templib,
records = list(bread = record),
packages = "bread",
recursive = TRUE
)
expect_true(renv_retrieve_libpaths_impl(record, userlib))
state <- renv_restore_state()
expect_true(state$install$contains("bread"))
expect_equal(state$install$get("bread")$Path, file.path(userlib, "bread"))
})
test_that("renv_retrieve_libpaths_impl rejects packages built for a different R version", {
renv_tests_scope()
# the file-backed DESCRIPTION cache would otherwise return the original
# Built field after we mutate the file below
renv_scope_options(renv.config.filebacked.cache = FALSE)
userlib <- renv_scope_tempfile("renv-userlib-")
ensure_directory(userlib)
install("bread", library = userlib)
# rewrite the Built field to claim an R version we definitely aren't using
descpath <- file.path(userlib, "bread", "DESCRIPTION")
text <- readLines(descpath)
text <- sub("^Built: R [0-9.]+", "Built: R 0.0.0", text)
writeLines(text, descpath)
templib <- renv_scope_tempfile("renv-library-")
ensure_directory(templib)
renv_scope_libpaths(c(templib, .libPaths()))
record <- list(
Package = "bread",
Version = "1.0.0",
Source = "Repository",
Repository = "CRAN"
)
renv_scope_restore(
project = getwd(),
library = templib,
records = list(bread = record),
packages = "bread",
recursive = TRUE
)
expect_false(renv_retrieve_libpaths_impl(record, userlib))
})
Try the renv package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.