From 711fe64ba537d1111aea55ab538eb75cb70b06ca Mon Sep 17 00:00:00 2001 From: Lionel Henry Date: Tue, 7 Mar 2023 14:09:02 +0100 Subject: [PATCH] Return list from `standalone_dependencies()` --- R/use-standalone.R | 6 ++++-- tests/testthat/test-use-standalone.R | 3 ++- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/R/use-standalone.R b/R/use-standalone.R index 6e442417c..ab7f7c76b 100644 --- a/R/use-standalone.R +++ b/R/use-standalone.R @@ -42,7 +42,7 @@ use_standalone <- function(repo_spec, file = NULL, ref = NULL, host = NULL) { write_over(proj_path(dest_path), lines, overwrite = TRUE) dependencies <- standalone_dependencies(lines, path) - for (dependency in dependencies) { + for (dependency in dependencies$deps) { use_standalone(repo_spec, dependency) } @@ -121,5 +121,7 @@ standalone_dependencies <- function(lines, path, error_call = caller_env()) { call = error_call ) } - deps %||% character() + deps <- deps %||% character() + + list(deps = deps) } diff --git a/tests/testthat/test-use-standalone.R b/tests/testthat/test-use-standalone.R index 57c0fcc98..fcefa3b41 100644 --- a/tests/testthat/test-use-standalone.R +++ b/tests/testthat/test-use-standalone.R @@ -40,7 +40,8 @@ test_that("header provides useful summary", { test_that("can extract dependencies", { extract_deps <- function(deps) { - standalone_dependencies(c("# ---", deps, "# ---"), "test.R") + out <- standalone_dependencies(c("# ---", deps, "# ---"), "test.R") + out$deps } expect_equal(extract_deps(NULL), character())