fix axecute unit test

pharmaverse · Aug 7, 2023 · a6048e4 · a6048e4
1 parent e56d7bf
commit a6048e4
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 3 deletions.
diff --git a/R/axecute.R b/R/axecute.R
@@ -42,7 +42,7 @@ axecute <- function(file, log_name = NA,
                     show_repo_url = FALSE,
                     ...){
    # deprecations
-   if (!hasArg(remove_log_object)) {
+   if (hasArg(remove_log_object)) {
       lifecycle::deprecate_stop("0.3.0", "axecute(remove_log_object = )", "axecute(include_rds = )")
    }
 

diff --git a/tests/testthat/test-axecute.R b/tests/testthat/test-axecute.R
@@ -81,7 +81,6 @@ test_that("show_repo_url works to show repo url elements", {
 
    axecute(scriptPath, log_name = "log_out_repo_url",
            log_path = logDir,
-           remove_log_object = FALSE,
            show_repo_url = TRUE
    )
    con <- file(file.path(logDir, "log_out_repo_url"), "r")
@@ -95,7 +94,6 @@ test_that("show_repo_url works to show repo url elements", {
 
    axecute(scriptPath, log_name = "log_out_repo_url2",
            log_path = logDir,
-           remove_log_object = FALSE,
            show_repo_url = FALSE
    )
    con <- file(file.path(logDir, "log_out_repo_url2"), "r")