fix: Debug_level bug

.gitignore

@@ -34,3 +34,6 @@ vignettes/*.pdf
 *.swp
 config-uat-rsc.yml
 output\.rds
+
+/.quarto/
+**/*.quarto_ipynb

.lintr

@@ -1,5 +1,6 @@
 linters: linters_with_defaults(
     assignment_linter = NULL,
+    object_length_linter = NULL,
     line_length_linter(100),
     undesirable_operator_linter(
       modify_defaults(

DESCRIPTION

@@ -1,14 +1,14 @@
 Type: Package
 Package: audit.connect
 Title: Posit Connect Health Check
-Version: 0.7.7
+Version: 0.7.8
 Authors@R:
     person("Jumping", "Rivers", , "info@jumpingrivers.com", role = c("aut", "cre"))
 Description: Posit Connect Health Check. Deploys various content types to
     assess whether Connect is functioning correctly.
 License: file LICENSE
 Imports:
-    audit.base (>= 0.6.15),
+    audit.base (>= 0.6.26),
     cli,
     connectapi (>= 0.2.0),
     dplyr,
@@ -38,4 +38,4 @@ Config/testthat/edition: 3
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3

NEWS.md

@@ -1,3 +1,7 @@
+# audit.connect 0.7.8 _2026-03-11_
+  - fix: Pass debug_level
+  - fix: Use magrittr pipe for compatibility with older R versions.
+
 # audit.connect 0.7.7 _2025-07-16_
   - chore: Update requirements.txt
 

R/deploy_flask-r6.R

@@ -20,12 +20,15 @@ check_deploy_python_flask = R6::R6Class(
         package = "audit.connect",
         mustWork = TRUE
       )
-      private$checker(deploy_python(
-        python_dir,
-        python_files = "app.py",
-        rsconnect_type = "api",
-        debug_level = debug_level
-      ))
+      private$checker(
+        deploy_python(
+          python_dir,
+          python_files = "app.py",
+          rsconnect_type = "api",
+          debug_level = debug_level
+        ),
+        debug_level
+      )
       invisible(NULL)
     }
   ),

R/deploy_git-r6.R

@@ -9,11 +9,14 @@ check_deploy_github = R6::R6Class(
     #' @description Deploy a shiny application from github
     #' @param debug_level See check() for details
     check = function(debug_level) {
-      private$checker(deploy_git(
-        repository = "https://github.com/uat-examples/old-faithful",
-        debug_level = debug_level,
-        title = paste("UAT", private$short)
-      ))
+      private$checker(
+        deploy_git(
+          repository = "https://github.com/uat-examples/old-faithful",
+          debug_level = debug_level,
+          title = paste("UAT", private$short)
+        ),
+        debug_level
+      )
       invisible(NULL)
     }
   ),

R/deploy_pins-r6.R

@@ -9,7 +9,7 @@ check_deploy_pins_rds = R6::R6Class(
     #' @description Checks a pin can be written, read and deleted
     #' @param debug_level See check() for details
     check = function(debug_level) {
-      private$checker(deploy_pins(debug_level = debug_level))
+      private$checker(deploy_pins(debug_level = debug_level), debug_level)
       invisible(NULL)
     }
   ),

R/deploy_plumber-r6.R

@@ -15,7 +15,10 @@ check_deploy_plumber_api = R6::R6Class(
         package = "audit.connect",
         mustWork = TRUE
       )
-      private$checker(deploy_plumber(plumber_dir, debug_level = debug_level))
+      private$checker(
+        deploy_plumber(plumber_dir, debug_level = debug_level),
+        debug_level
+      )
       invisible(NULL)
     }
   ),

R/deploy_python.R

@@ -75,7 +75,8 @@ cleanup_python = function(tmp_dir, debug_level, guid = NULL) {
   suppress = get_suppress(debug_level)
   fs::dir_delete(tmp_dir)
   # map in case we make multiple mistakes
-  con = suppress(
+  # fmt: skip
+  con = suppress( # nolint
     connectapi::connect(
       server = get_server(),
       api_key = get_token()

R/deploy_quarto-r6.R

@@ -28,10 +28,11 @@ for (i in seq_along(types)) {
             mustWork = TRUE
           )
           private$checker(
-            deploy_quarto(quarto_dir, account, debug_level = debug_level)
+            deploy_quarto(quarto_dir, account, debug_level = debug_level),
+            debug_level
           )
 
-          return(invisible(NULL))
+          invisible(NULL)
         }
       ),
       private = list(
@@ -79,9 +80,10 @@ check_deploy_quarto_python = R6::R6Class(
           python_files = "index.qmd",
           rsconnect_type = "quarto",
           debug_level = debug_level
-        )
+        ),
+        debug_level
       )
-      return(invisible(NULL))
+      invisible(NULL)
     }
   ),
   private = list(

R/deploy_quarto.R

@@ -24,7 +24,7 @@ deploy_quarto = function(
     forceUpdate = TRUE,
     logLevel = "quiet"
   ))
-  return(invisible(has_deployed))
+  invisible(has_deployed)
 }
 
 cleanup_quarto = function(tmp_dir, debug_level) {

R/deploy_rmd-r6.R

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

R/deploy_shiny-r6.R

@@ -16,7 +16,10 @@ check_deploy_shiny = R6::R6Class(
         package = "audit.connect",
         mustWork = TRUE
       )
-      private$checker(deploy_app(shiny_dir, debug_level, appFiles = "app.R"))
+      private$checker(
+        deploy_app(shiny_dir, debug_level, appFiles = "app.R"),
+        debug_level
+      )
       invisible(NULL)
     }
   ),

R/deploy_streamlit-r6.R

@@ -20,12 +20,15 @@ check_deploy_python_streamlit = R6::R6Class(
         package = "audit.connect",
         mustWork = TRUE
       )
-      private$checker(deploy_python(
-        python_dir,
-        python_files = "app.py",
-        rsconnect_type = "streamlit",
-        debug_level = debug_level
-      ))
+      private$checker(
+        deploy_python(
+          python_dir,
+          python_files = "app.py",
+          rsconnect_type = "streamlit",
+          debug_level = debug_level
+        ),
+        debug_level
+      )
       invisible(NULL)
     }
   ),

R/summarise_setup.R

@@ -68,11 +68,12 @@ check_rsconnect_python = function() {
     "rsconnect_python",
     as.logical(nchar(Sys.which("rsconnect")) > 0)
   )
-  sym = ifelse(
+  # fmt: skip
+  sym = ifelse( #nolint
     value,
     cli::col_green(cli::symbol$tick),
     cli::col_red(cli::symbol$cross)
-  ) #nolint
+  )
   cli::cli_alert_info("rsconnect-python: {sym}")
   if (isFALSE(value)) {
     cli::cli_alert_warning("rsconnect-python not installed")

R/summarise_users.R

@@ -43,10 +43,11 @@ print_audit_users = function(user_list) {
     sep = ": "
   )
   user_string = paste(user_vec, collapse = ", ") # nolint: object_usage_linter
-  admins = dplyr::filter(
+  # fmt: skip
+  admins = dplyr::filter(     # nolint: object_usage_linter
     user_list$users,
     .data$user_role == "administrator" & !.data$locked
-  ) # nolint: object_usage_linter
+  )
 
   cli::cli_alert_info(
     "Users: {sum(user_summary$n)} out of {user_list$user_account_limit}"
@@ -58,15 +59,15 @@ print_audit_users = function(user_list) {
 print_audit_user_apps = function(client, debug_level) {
   suppress = get_suppress(debug_level)
   content = suppress(connectapi::get_content(client))
-  locked_users = suppress(connectapi::get_users(client)) |>
+  locked_users = suppress(connectapi::get_users(client)) %>%
     dplyr::filter(.data$locked)
   locked_content = dplyr::inner_join(
     content,
     locked_users,
     by = dplyr::join_by("owner_guid" == "guid")
-  ) |>
-    dplyr::group_by(.data$username) |>
-    dplyr::summarise(n = dplyr::n()) |>
+  ) %>%
+    dplyr::group_by(.data$username) %>%
+    dplyr::summarise(n = dplyr::n()) %>%
     dplyr::arrange(dplyr::desc(.data$n))
 
   cli::cli_alert_info(

README.Rmd

@@ -48,7 +48,7 @@ Alternatively, you can set environmental variables, `CONNECT_SERVER` and `CONNEC
 
 ## Connect Package Pollution
 
-If you are running this package on a machine you normally use to deploy to Connect, then 
+If you are running this package on a machine you normally use to deploy to Connect, then
 this isn't an issue - you can skip the next part.
 
 **If** you are using a machine where you are deploying to Connect for the
@@ -58,8 +58,8 @@ Connect package pollution occurs when
 
  * we use package manager binaries, **and**
  * the OS on Connect differs to the OS on the deployment machine.
- 
-If you aren't using binaries or the OS is the same, then you won't have any issue. 
+
+If you aren't using binaries or the OS is the same, then you won't have any issue.
 If you want to be sure, we can use {renv}
 
 ```{r, eval = FALSE}
@@ -97,8 +97,8 @@ check_example = R6::R6Class(
   # This runs the test, detects errors, and logs the result
   public = list(
     #' @description Runs a UAT check
-    check = function(account = NULL) {
-      private$checker(example_test())
+    check = function(debug_level) {
+      private$checker(example_test(), debug_level)
       return(invisible(NULL))
     }
   ),