fix: Various bug fixes

DESCRIPTION

@@ -1,27 +1,27 @@
 Type: Package
 Package: audit.workbench
 Title: RStudio/Workbench User Acceptance Tests
-Version: 0.6.6
+Version: 0.6.7
 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.20),
+    audit.base (>= 0.6.25),
     BiocManager,
     cli,
     dplyr,
     fs,
+    glue,
     httr,
     processx,
     purrr,
     quarto (>= 1.3),
     remotes,
     rlang,
     rmarkdown,
-    serverHeaders,
     stringr,
     tibble,
     utils,
@@ -33,8 +33,7 @@ Suggests:
     rvest,
     testthat (>= 3.0.0)
 Remotes:
-    jumpingrivers/audit.base,
-    jumpingrivers/serverheaders
+    jumpingrivers/audit.base
 Config/testthat/edition: 3
 Encoding: UTF-8
 Language: en-GB

NEWS.md

@@ -1,3 +1,9 @@
+# audit.workbench 0.6.7 *2026-02-23*
+- fix: Use remote versions of software if possible
+- fix: Printing drivers to screen
+- fix: Suppress some BioConductor noise
+- fix: Check cran didn't work
+
 # audit.workbench 0.6.6 *2026-01-22*
 - fix: Parsing Posit versions #20
 - chore: Linting and air'ing

R/check_package.R

@@ -14,7 +14,7 @@ check_cran = R6::R6Class(
     #' @param debug_level See check() for details
     check = function(debug_level) {
       private$checker(testing_cran(debug_level))
-      rinvisible(NULL)
+      invisible(NULL)
     }
   ),
   private = list(
@@ -93,7 +93,7 @@ testing_bioconductor = function(debug_level) {
   # Can we access the bioconductor repos
   # Repo 5 is bioconductor, but doesn't work!
   # Installing a bioconductor pkg is slowwww
-  repos = BiocManager::repositories()[1:4]
+  repos = suppressMessages(BiocManager::repositories()[1:4])
   lapply(repos, function(repo) {
     stopifnot("Unable to access bioconductor repo" = !httr::http_error(repo))
   })

R/check_posit_drivers.R

@@ -10,7 +10,7 @@ check_posit_drivers = function(debug_level) {
     upgrade = upgrade,
     version = latest_version
   )
-  audit.base::print_colour_versions(installed)
+  print_colour_version_posit_driver(installed[1, ])
   installed
 }
 
@@ -31,3 +31,27 @@ get_installed_posit_driver = function() {
   }
   installed_version
 }
+
+# fmt: skip
+print_colour_version_posit_driver = function(row) { # nolint
+  software_name = glue::glue("{stringr::str_to_title(row$software)}") # nolint
+  latest_version = glue::glue("{row$version}") # nolint
+  if (is.na(row$installed_version)) {
+    cli::cli_alert_danger(
+      "{software_name}: latest {latest_version} not installed"
+    )
+    return(invisible(NULL))
+  }
+
+  if (isTRUE(row$upgrade)) {
+    cli::cli_alert_danger(
+      "{software_name}: v{row$installed_version} installed, \\
+                          but {latest_version} available"
+    )
+  } else {
+    cli::cli_alert_success(
+      "{software_name}: Latest version installed"
+    )
+  }
+  invisible(NULL)
+}

R/check_versions.R

@@ -19,5 +19,5 @@ check_versions = function(debug_level) {
   )
 
   installed = tibble::tibble(installed_version = versions, software)
-  audit.base::augment_installed(installed)
+  audit.base::augment_installed(installed, remote = TRUE)
 }