Error in `renv_snapshot_validate_report(valid, prompt, force)`: aborting snapshot due to pre-flight validation failure

test_that("appDepenencies includes implicit deps", {
path <- local_temp_app(list("test.Rmd" = ""))
test_that("static project doesn't have deps", {
path <- local_temp_app(list("index.html" = ""))
test_that("infers correct packages for each source", {
# Simple regression test in preparation for refactoring

"infers correct packages for each source"

test_that("non-R apps don't have packages", {
app_dir <- local_temp_app(list(index.html = ""))
test_that("manifest has correct data types", {
app <- local_temp_app(list("index.Rmd" = ""))
test_that("recommended packages are snapshotted", {
app <- local_temp_app(list("index.Rmd" = c(
app <- local_temp_app(list("index.R" = c(
Biobase <- deps[deps$Package == "Biobase", ]
test_that("gets DESCRIPTION from renv library", {
app_dir <- local_temp_app(list("foo.R" = "library(withr); library(foreign)"))
bitbucket <- list(Package = "pkg", Source = "Bitbucket")
gitlab <- list(Package = "pkg", Source = "GitLab")
github <- list(Package = "pkg", Source = "GitHub")
list(Package = "pkg", Source = "bitbucket")
list(Package = "pkg", Source = "gitlab")
list(Package = "pkg", Source = "github")
test_that("BioC gets normalized repo", {
Bioconductor <- list(Package = "pkg", Source = "Bioconductor")
list(Package = "pkg", Source = "Bioconductor", Repository = "https://b.com")
test_that("has special handling for CRAN packages", {
spec <- function(version, source = "Repository", repo = "CRAN") {
list(Package = "pkg", Version = version, Source = source, Repository = repo)
test_that("packages installed from other repos get correctly named", {
pkg <- list(Package = "pkg", Source = "Repository", Repository = "https://test2.com")
repos <- c(TEST1 = "https://test1.com", TEST2 = "https://test2.com")
standardizeRenvPackage(pkg, packages, repos = repos),
list(Package = "pkg", Source = "TEST2", Repository = "https://test2.com")
test_that("source packages get NA source", {
source <- list(Package = "pkg", Source = "unknown")
list(Package = "pkg", Source = NA_character_)