narrow down spurious warnings

opens #344
subugoe · Dec 2, 2021 · b55ea8d · b55ea8d
1 parent 04856db
commit b55ea8d
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 16 deletions.
diff --git a/R/email.R b/R/email.R
@@ -142,20 +142,15 @@ block_text_centered_vec <- function(...) {
 mc_render_email <- function(dois = doi_examples$good[1:10],
                             translator = mc_translator(),
                             ...) {
-  # suppression is dangerous hack-fix for
-  # https://github.com/subugoe/metacheck/issues/138
-  # otherwise, tests are illegibly noisy
-  suppressWarnings(
-    blastula::render_email(
-      input = path_report_rmd(lang = translator$get_translation_language()),
-      render_options = list(
-        params = list(
-          dois = dois,
-          translator = translator
-        )
-      ),
-      ...
-    )
+  blastula::render_email(
+    input = path_report_rmd(lang = translator$get_translation_language()),
+    render_options = list(
+      params = list(
+        dois = dois,
+        translator = translator
+      )
+    ),
+    ...
   )
 }
 

diff --git a/R/metrics_funder.R b/R/metrics_funder.R
@@ -30,8 +30,9 @@ funder_metrics <- function(funder_info = NULL) {
     mutate(name = ifelse(is.na(.data$name), "No funding info", .data$name)) %>%
     mutate(name = forcats::fct_lump_prop(.data$name, prop = 0.03, other_level = "Other funders")) %>%
     mutate(name = forcats::fct_infreq(.data$name)) %>%
-    mutate(name = forcats::fct_relevel(.data$name, "Other funders", after = Inf)) %>%
-    mutate(name = forcats::fct_relevel(.data$name, "No funding info", after = Inf))
+    # TODO hack fix to avoid spurious warnings https://github.com/subugoe/metacheck/issues/344
+    suppressWarnings(mutate(name = forcats::fct_relevel(.data$name, "Other funders", after = Inf))) %>%
+    suppressWarnings(mutate(name = forcats::fct_relevel(.data$name, "No funding info", after = Inf)))
   } else {
     out <-funder_info %>%
       mutate(name = ifelse(is.na(.data$name), "No funding info", .data$name)) %>%