diff --git a/DESCRIPTION b/DESCRIPTION index 0b20f98..193fa33 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: dashboard Title: What the Package Does (One Line, Title Case) -Version: 0.1.0 +Version: 0.1.0.001 Authors@R: person(given = "First", family = "Last", diff --git a/codemeta.json b/codemeta.json index 324e59b..c977231 100644 --- a/codemeta.json +++ b/codemeta.json @@ -6,7 +6,7 @@ "name": "dashboard: What the Package Does (One Line, Title Case)", "codeRepository": "https://github.com/ropensci-review-tools/dashboard", "license": "https://spdx.org/licenses/MIT", - "version": "0.1.0", + "version": "0.1.0.001", "programmingLanguage": { "@type": "ComputerLanguage", "name": "R", diff --git a/quarto/editors.qmd b/quarto/editors.qmd index 57fc56b..c333329 100644 --- a/quarto/editors.qmd +++ b/quarto/editors.qmd @@ -64,7 +64,8 @@ ed_status <- dplyr::filter (ed_status, editor != "haozhu233") |> dplyr::rename ( "Languages" = other_langs, "Expertise" = domain_expertise - ) + ) |> + tidyr::replace_na (list (inactive_for = "(waiting)")) ``` ### General Editors @@ -79,7 +80,12 @@ ed_dat_gen <- dplyr::group_by (ed_dat_gen, status) |> dplyr::ungroup () u <- "https://github.com/ropensci/software-review/issues/" +index_na <- which (is.na (ed_dat_gen$inactive_for)) ed_dat_gen <- dashboard:::add_gt_html (ed_dat_gen, u, what = "inactive_for") +# Rm HTML from rows with no `inactive_for` values: +if (length (index_na) > 0L) { + ed_dat_gen$inactive_for [index_na] <- "(waiting)" +} gt::gt ( ed_dat_gen, @@ -109,7 +115,11 @@ ed_dat_stats <- dplyr::group_by (ed_dat_stats, status) |> dplyr::ungroup () u <- "https://github.com/ropensci/software-review/issues/" +index_na <- which (is.na (ed_dat_stats$inactive_for)) ed_dat_stats <- dashboard:::add_gt_html (ed_dat_stats, u, what = "inactive_for") +if (length (index_na) > 0L) { + ed_dat_stats$inactive_for [index_na] <- "(waiting)" +} gt::gt ( ed_dat_stats,