Use the latest version of connectapi

DESCRIPTION

@@ -1,16 +1,16 @@
 Type: Package
 Package: audit.connect
 Title: Posit Connect Health Check
-Version: 0.7.4
+Version: 0.7.5
 Authors@R:
     person("Jumping", "Rivers", , "[email protected]", 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.10),
+    audit.base (>= 0.6.15),
     cli,
-    connectapi (>= 0.1.3.1),
+    connectapi (>= 0.2.0),
     dplyr,
     fs,
     httr,
@@ -21,7 +21,7 @@ Imports:
     purrr,
     quarto (>= 1.3),
     rlang,
-    rsconnect (>= 1.1.0),
+    rsconnect (>= 1.3.1),
     stringr,
     tibble
 Suggests:

NEWS.md

@@ -1,3 +1,7 @@
+# audit.connect 0.7.5 _2024-06-10_
+  - fix: Use latest version of {connactapi}
+  - chore: Fix Rd warnings due to R4.4
+
 # audit.connect 0.7.4 _2024-04-04_
   - feat: Force `server` to have `http(?s)`
   - feat: Improved error message when testing status response

R/sanitise.R

@@ -1,6 +1,6 @@
 #' Sanitise {audit.connect} object
 #'
-#' This function removes user-identifying data from an {audit.connect} object
+#' This function removes user-identifying data from an audit.connect object
 #' @param audit_connect_check An object from audit.connect::check()
 #' @export
 sanitise = function(audit_connect_check) {

R/summarise_users.R

@@ -44,13 +44,20 @@ print_audit_users = function(user_list) {
 
 print_audit_user_apps = function(client, debug_level) {
   suppress = get_suppress(debug_level)
-  apps = suppress(connectapi::cache_apps(client))
-  # Remove any api keys; don't need or want them
-  apps = purrr::map(apps, ~{.x$EnvironmentJson = NULL; .x}) # nolint
-  app_creators =  purrr::map_df(apps,
-                                ~dplyr::tibble(owner = .x[["owner_username"]],
-                                               locked = .x$owner_locked))
-  locked_users = dplyr::filter(app_creators, .data$locked) # nolint: object_usage_linter
-  cli::cli_alert_info("{nrow(locked_users)} applications owned by locked users")
-  apps
+  content = suppress(connectapi::get_content(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(username) |>
+    dplyr::summarise(n = dplyr::n()) |>
+    dplyr::arrange(dplyr::desc(n))
+
+  cli::cli_alert_info("{sum(locked_content$n)} applications owned by locked users")
+
+  for (i in seq_len(nrow(locked_content))) {
+    row = locked_content[i, ]
+    cli::cli_alert_info("{row$n} locked application{?s} owned by {cli::style_italic(row$username)}")
+  }
+  content
 }