Skip to content

Commit

Permalink
fix: Return distinct server headers (#21)
Browse files Browse the repository at this point in the history
  • Loading branch information
csgillespie authored Jan 24, 2024
1 parent 4eb7e1c commit 522aa07
Show file tree
Hide file tree
Showing 4 changed files with 8 additions and 2 deletions.
2 changes: 1 addition & 1 deletion DESCRIPTION
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
Type: Package
Package: audit.base
Title: Base package for Posit Checks
Version: 0.6.10
Version: 0.6.11
Authors@R:
person("Jumping", "Rivers", , "[email protected]", role = c("aut", "cre"))
Description: Base package for sharing classes between posit audit
Expand Down
3 changes: 3 additions & 0 deletions NEWS.md
Original file line number Diff line number Diff line change
@@ -1,3 +1,6 @@
# audit.base 0.6.11 _2024-01-24_
- fix: Return distinct server headers

# audit.base 0.6.10 _2023-10-19_
- fix: Add {serverHeaders} to Imports
- feat: Update software versions
Expand Down
2 changes: 2 additions & 0 deletions R/create_software_tibble.R
Original file line number Diff line number Diff line change
Expand Up @@ -9,9 +9,11 @@ update_software_csv = function() {
return(invisible(software))
}

# https://gitlab.com/jumpingrivers/services/de/spd/infrastructure-template/-/blob/5c584fced32a6fc8fd7b25b3ea78f6fb7a8bd7ca/template/ansible/scripts/versions.sh
create_software_tibble = 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", stringr::str_remove(q$name, "^v"))

Expand Down
3 changes: 2 additions & 1 deletion R/quarto-helpers.R
Original file line number Diff line number Diff line change
Expand Up @@ -12,7 +12,8 @@ get_quarto_server_header = function(out) {
header_docs = purrr::map(.data$documentation, ~htmltools::a(href = .x, "(docs)")),
message = purrr::map2(message, .data$header_docs,
~ gt::html(paste(.x, as.character(.y))))) %>%
dplyr::mutate(value = ifelse(is.na(.data$value), "-", .data$value))
dplyr::mutate(value = ifelse(is.na(.data$value), "-", .data$value)) |>
dplyr::distinct()
dplyr::select(headers, -"documentation", -"header_docs", -"primary_header")
}

Expand Down

0 comments on commit 522aa07

Please sign in to comment.