fix summary symbols

Boehringer-Ingelheim · Jun 5, 2024 · aee652f · aee652f
1 parent c790faa
commit aee652f
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/scripts/test_qc_pkg.R b/scripts/test_qc_pkg.R
@@ -127,9 +127,9 @@ summary <- c(
   summary,
   purrr::imap_chr(success, ~{
     symbol <- "\U02753"
-    symbol <- if (isTRUE(.x)) "\U02705"
-    symbol <- if (isFALSE(.x)) "\U0274C"
-    symbol <- if (is.na(.x)) "\U02757"
+    if (isTRUE(.x)) symbol <- "\U02705"
+    if (isFALSE(.x)) symbol <- "\U0274C"
+    if (is.na(.x)) symbol <- "\U02757"
     paste(" - ", symbol, .y)
   })
 )