chore: Linting and update requirements.txt (#41)

Author: csgillespie

.Rbuildignore

@@ -15,4 +15,6 @@ rsconnect/
 ^jrHealthCheckConnect\.Rproj$
 /rsconnect/
 ^\.github$
-^\.commitlintrc\.yml$
+^\.commitlintrc\.yml$
+^[.]?air[.]toml$
+^\.vscode$

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: audit.base
 Title: Base package for Posit Checks
-Version: 0.6.21
+Version: 0.6.22
 Authors@R:
     person("Jumping", "Rivers", , "info@jumpingrivers.com", role = c("aut", "cre"))
 Description: Base package for sharing classes between posit audit

NEWS.md

@@ -1,3 +1,7 @@
+# audit.base 0.6.22 _2025-07-21_
+- chore: Use air for formatting
+- chore: Update requirements.txt for python example
+
 # audit.base 0.6.21 _2025-07-09_
 - chore: Software bump
 - feat: Update ubuntu to 24.04

R/check.R

@@ -10,7 +10,13 @@
 init_r6_checks = function(dir, file, pkg_name) {
   exports = getNamespaceExports(pkg_name)
   check_exports = sort(exports[stringr::str_starts(exports, "check_")])
-  r6_inits = purrr::map(check_exports, init_r6_check, dir = dir, file = file, pkg_name)
+  r6_inits = purrr::map(
+    check_exports,
+    init_r6_check,
+    dir = dir,
+    file = file,
+    pkg_name
+  )
   purrr::discard(r6_inits, ~ is.null(.x))
 }
 

R/check_server_headers.R

@@ -14,17 +14,23 @@ check_server_headers = function(server) {
 # Detects if we are leaking server header information
 get_posit_headers = function(headers) {
   posit_header = headers %>%
-    dplyr::filter(.data$header == "server" &
-                    stringr::str_detect(.data$message, "[p|P]osit")) %>%
+    dplyr::filter(
+      .data$header == "server" &
+        stringr::str_detect(.data$message, "[p|P]osit")
+    ) %>%
     dplyr::mutate(
       documentation = "https://developer.mozilla.org/docs/Web/HTTP/Headers/Server",
       primary_header = TRUE,
       status = "WARN"
     )
   if (nrow(posit_header) == 0) {
-    cli::cli_alert_success("{cli::col_green('server')}: Does not leak information")
+    cli::cli_alert_success(
+      "{cli::col_green('server')}: Does not leak information"
+    )
   } else {
-    cli::cli_alert_danger("{cli::col_red('server')}: Contains too much information")
+    cli::cli_alert_danger(
+      "{cli::col_red('server')}: Contains too much information"
+    )
   }
   posit_header
 }

R/check_sys_deps.R

@@ -12,7 +12,9 @@
 check_sys_deps = function(os_release, installed_libs, debug_level = 0:2) {
   debug_level = get_debug_level(debug_level)
   cli::cli_h2("Systems Libraries")
-  cli::cli_alert_info("This may take a few minutes as we are deploying a plumber API onto Connect")
+  cli::cli_alert_info(
+    "This may take a few minutes as we are deploying a plumber API onto Connect"
+  )
   # Clean up response
   pkg_look_up = get_os_sys_deps(os_release)
 

R/config.R

@@ -20,8 +20,10 @@ create_config = function(file, pkg_name) {
     type = match.arg(type)
     yaml_file = file.path(dir, file)
     if (type == "error" && file.exists(yaml_file)) {
-      cli::cli_abort("Config file already exists.
-                   Either delete or change the `type` argument.")
+      cli::cli_abort(
+        "Config file already exists.
+                   Either delete or change the `type` argument."
+      )
     }
 
     new_config = create_config_list(dir, file, default, pkg_name)
@@ -49,8 +51,10 @@ get_check_info = function(dir, file, pkg_name) {
     purrr::map_dfr(r6_inits, function(r6) c("class" = class(r6)[1], r6$info()))
   } else {
     tibble::tibble(
-      class = character(0), group = character(0),
-      short = character(0), context = character(0),
+      class = character(0),
+      group = character(0),
+      short = character(0),
+      context = character(0),
       long = character(0)
     )
   }
@@ -63,9 +67,7 @@ merge_configs = function(new, existing) {
       new[[v]] = merge_configs(new[[v]], existing[[v]])
       # Ensure that existing list is the same "type"
       # If not, new gets precedent
-    } else if (v %in% xnames &&
-               !is.null(existing[[v]]) &&
-               !is.list(existing[[v]])) {
+    } else if (v %in% xnames && !is.null(existing[[v]]) && !is.list(existing[[v]])) {
       new[[v]] = existing[[v]]
     }
   }

R/get_latest_versions_remote.R

@@ -4,9 +4,19 @@ get_latest_versions_remote = function() {
   r = get_latest_versions_from_posit("r")
   py = get_latest_versions_from_posit("python")
   # Drop latest to get all releases
-  q = jsonlite::read_json("https://api.github.com/repos/quarto-dev/quarto-cli/releases/latest")
-  quarto = c("1.0.38", "1.1.189", "1.2.475", "1.3.450", "1.4.557", "1.5.57",
-             stringr::str_remove(q$name, "^v"))
+  q = jsonlite::read_json(
+    "https://api.github.com/repos/quarto-dev/quarto-cli/releases/latest"
+  )
+  quarto = c(
+    "1.0.38",
+    "1.1.189",
+    "1.2.475",
+    "1.3.450",
+    "1.4.557",
+    "1.5.57",
+    "1.6.43",
+    stringr::str_remove(q$name, "^v")
+  )
 
   software_tibble = tibble::tibble(
     software = rep(
@@ -31,7 +41,11 @@ get_latest_versions_from_posit = function(type = c("r", "python")) {
   url = glue::glue("https://cdn.posit.co/{type}/versions.json")
   versions = unlist(jsonlite::read_json(url))
   versions = unname(versions)
-  tibble::tibble(patch = get_patch(versions), major = get_major(versions), versions = versions) %>%
+  tibble::tibble(
+    patch = get_patch(versions),
+    major = get_major(versions),
+    versions = versions
+  ) %>%
     dplyr::filter(!is.na(.data$patch)) %>%
     dplyr::arrange(.data$major, -.data$patch) %>%
     dplyr::group_by(.data$major) %>%

R/get_pkg_requirements.R

@@ -1,11 +1,15 @@
 # https://packagemanager.rstudio.com/__api__/swagger/index.html#/default/get_repos
-get_pkg_requirements = function(distribution = c("ubuntu", "redhat", "centos"),
-                                release = c("18.04", "20.04", "22.04", "24.04", "7", "8", "9"),
-                                base_url = "https://packagemanager.rstudio.com/__api__/repos/",
-                                repo_id = 2) {
+get_pkg_requirements = function(
+  distribution = c("ubuntu", "redhat", "centos"),
+  release = c("18.04", "20.04", "22.04", "24.04", "7", "8", "9"),
+  base_url = "https://packagemanager.rstudio.com/__api__/repos/",
+  repo_id = 2
+) {
   distribution = match.arg(distribution)
   release = match.arg(release)
-  config_url = glue::glue("{repo_id}/sysreqs?all=true&distribution={distribution}&release={release}") # nolint
+  config_url = glue::glue(
+    "{repo_id}/sysreqs?all=true&distribution={distribution}&release={release}"
+  ) # nolint
   url = glue::glue("{base_url}{config_url}")
   res = httr::GET(url)
   r = httr::content(res)

R/get_posit_remote_versions.R

@@ -21,7 +21,10 @@ get_posit_remote_versions = function(type = c("connect", "workbench")) {
 extract_posit_cves = function(section) {
   posit_name = rvest::html_attrs(section)
   posit_name = as.vector(posit_name["id"])
-  posit_version = stringr::str_extract(posit_name, "[0-9]{4}\\.[0-9]{1,2}\\.[0-9]{1,2}")
+  posit_version = stringr::str_extract(
+    posit_name,
+    "[0-9]{4}\\.[0-9]{1,2}\\.[0-9]{1,2}"
+  )
 
   li = section %>%
     rvest::html_elements("li") %>%