fix: Debug_level bug

DESCRIPTION

@@ -1,15 +1,15 @@
 Type: Package
 Package: audit.workbench
 Title: RStudio/Workbench User Acceptance Tests
-Version: 0.6.7
+Version: 0.6.8
 Authors@R:
     person("Jumping", "Rivers", , "info@jumpingrivers.com", role = c("aut", "cre"))
 Description: Testing whether data scientists can do what they expect in
     Posit Workbench.
 License: file LICENSE
 URL: https://jumpingrivers.github.io/audit.workbench/
 Imports:
-    audit.base (>= 0.6.25),
+    audit.base (>= 0.6.26),
     BiocManager,
     cli,
     dplyr,

NEWS.md

@@ -1,3 +1,6 @@
+# audit.workbench 0.6.8 *2026-03-11*
+- fix: debug_level now properly passed
+
 # audit.workbench 0.6.7 *2026-02-23*
 - fix: Use remote versions of software if possible
 - fix: Printing drivers to screen

R/check_core_r_pkgs.R

@@ -10,7 +10,7 @@ check_core_r_pkgs = R6::R6Class(
     #' @description Test for core R packages
     #' @param debug_level See check() for details
     check = function(debug_level) {
-      private$checker(testing_core_r_pkgs(debug_level))
+      private$checker(testing_core_r_pkgs(), debug_level)
       invisible(NULL)
     }
   ),
@@ -23,7 +23,7 @@ check_core_r_pkgs = R6::R6Class(
   )
 )
 
-testing_core_r_pkgs = function(debug_level) {
+testing_core_r_pkgs = function() {
   core_r_pkgs = get_core_r_packages()
   in_pkgs = utils::installed.packages()
   missing_r_pkgs = core_r_pkgs[!(core_r_pkgs %in% rownames(in_pkgs))]

R/check_file_permissions.R

@@ -9,7 +9,7 @@ check_file_permissions = R6::R6Class(
     #' @description Check
     #' @param debug_level See check() for details
     check = function(debug_level) {
-      private$checker(testing_file_permissions(debug_level))
+      private$checker(testing_file_permissions(), debug_level)
       invisible(NULL)
     }
   ),
@@ -22,7 +22,7 @@ check_file_permissions = R6::R6Class(
   )
 )
 
-testing_file_permissions = function(debug_level) {
+testing_file_permissions = function() {
   fname = file.path("~", "tmp-file-creating.txt")
   withr::with_file(fname, {
     fs::file_create(fname)

R/check_git_cloning.R

@@ -9,7 +9,7 @@ check_git_cloning = R6::R6Class(
     #' @description Checking that we can access and clone from github.com
     #' @param debug_level See `check()` for details
     check = function(debug_level) {
-      private$checker(git_cloning(debug_level))
+      private$checker(git_cloning(), debug_level)
       invisible(NULL)
     }
   ),
@@ -21,7 +21,7 @@ check_git_cloning = R6::R6Class(
   )
 )
 
-git_cloning = function(debug_level) {
+git_cloning = function() {
   git_clone_url = "https://github.com/jumpingrivers/diffify.git"
   git_local_folder = file.path(tempdir(), "diffify")
 

R/check_package.R

@@ -13,7 +13,7 @@ check_cran = R6::R6Class(
     #' @description Installs a package from CRAN
     #' @param debug_level See check() for details
     check = function(debug_level) {
-      private$checker(testing_cran(debug_level))
+      private$checker(testing_cran(), debug_level)
       invisible(NULL)
     }
   ),
@@ -36,7 +36,7 @@ check_bioconductor = R6::R6Class(
     #' @description Checks that Bioconductor URLs are accessible
     #' @param debug_level See check() for details
     check = function(debug_level) {
-      private$checker(testing_bioconductor(debug_level))
+      private$checker(testing_bioconductor(), debug_level)
       invisible(NULL)
     }
   ),
@@ -59,7 +59,7 @@ check_github = R6::R6Class(
     #' @description Checks installs a package from github#
     #' @param debug_level See check() for details
     check = function(debug_level) {
-      private$checker(testing_github(debug_level))
+      private$checker(testing_github(), debug_level)
       invisible(NULL)
     }
   ),
@@ -71,15 +71,14 @@ check_github = R6::R6Class(
   )
 )
 
-
-testing_cran = function(debug_level) {
+testing_cran = function() {
   pkg_name = "drat"
   is_installed = install_packages(pkg_name, quiet = TRUE)
   stopifnot("pkg unable to be installed" = is_installed)
   invisible(TRUE)
 }
 
-testing_github = function(debug_level) {
+testing_github = function() {
   installed_pkg = remotes::install_github(
     "jumpingrivers/datasauRus",
     quiet = TRUE,
@@ -89,7 +88,7 @@ testing_github = function(debug_level) {
   invisible(TRUE)
 }
 
-testing_bioconductor = function(debug_level) {
+testing_bioconductor = function() {
   # Can we access the bioconductor repos
   # Repo 5 is bioconductor, but doesn't work!
   # Installing a bioconductor pkg is slowwww

R/check_python.R

@@ -9,7 +9,7 @@ check_python_pip = R6::R6Class(
     #' @description Checks python pip install
     #' @param debug_level See check() for details
     check = function(debug_level) {
-      private$checker(python_pip_tests(debug_level))
+      private$checker(python_pip_tests(), debug_level)
       invisible(NULL)
     }
   ),
@@ -32,7 +32,7 @@ check_python_reticulate = R6::R6Class(
     #' @description Checks python can be used via reticulate
     #' @param debug_level See check() for details
     check = function(debug_level) {
-      private$checker(python_reticulate_tests(debug_level))
+      private$checker(python_reticulate_tests(), debug_level)
       invisible(NULL)
     }
   ),
@@ -44,7 +44,7 @@ check_python_reticulate = R6::R6Class(
   )
 )
 
-python_pip_tests = function(debug_level) {
+python_pip_tests = function() {
   system('python3 -c "print(2+2)"', intern = TRUE)
 
   pip_version = processx::run("pip", "--version")$stdout
@@ -65,7 +65,7 @@ python_pip_tests = function(debug_level) {
   invisible(TRUE)
 }
 
-python_reticulate_tests = function(debug_level) {
+python_reticulate_tests = function() {
   if (!requireNamespace("reticulate", quietly = TRUE)) {
     utils::install.packages("reticulate")
     withr::defer(utils::remove.packages("reticulate"))

R/check_quarto.R

@@ -29,7 +29,8 @@ for (i in seq_along(types)) {
             mustWork = TRUE
           )
           private$checker(
-            render_quarto(quarto_dir, debug_level = debug_level)
+            render_quarto(quarto_dir, debug_level),
+            debug_level
           )
           invisible(NULL)
         }

R/check_rmd.R

@@ -25,7 +25,8 @@ for (type in types) {
             mustWork = TRUE
           )
           private$checker(
-            render_rmd(rmd_dir, debug_level = debug_level)
+            render_rmd(rmd_dir, debug_level = debug_level),
+            debug_level
           )
 
           invisible(NULL)