fix verdepcheck (#1216)

Signed-off-by: Pawel Rucki <[email protected]>
insightsengineering · Apr 4, 2024 · 2badcbf · 2badcbf
1 parent b2230d4
commit 2badcbf
Show file tree

Hide file tree

Showing 4 changed files with 16 additions and 20 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -30,7 +30,7 @@ Imports:
     broom (>= 0.5.4),
     car (>= 3.0-13),
     checkmate (>= 2.1.0),
-    cowplot (>= 0.7.0),
+    cowplot (>= 1.0.0),
     dplyr (>= 1.0.0),
     emmeans (>= 1.8.0),
     forcats (>= 1.0.0),

diff --git a/R/g_forest.R b/R/g_forest.R
@@ -384,7 +384,7 @@ g_forest <- function(tbl,
       all(which_arrow) ~ "both",
       which_arrow[1] ~ "first",
       which_arrow[2] ~ "last",
-      TRUE ~ NA
+      TRUE ~ NA_character_
     )
 
     # Add CI lines

diff --git a/R/utils_ggplot.R b/R/utils_ggplot.R
@@ -164,8 +164,8 @@ df2gg <- function(df,
                   col_lab_fontface = "bold",
                   hline = TRUE,
                   bg_fill = NULL) {
-  # convert NAs to text
-  df <- as.data.frame(apply(df, 1:2, tidyr::replace_na, replace = "NA"))
+  # convert to text
+  df <- as.data.frame(apply(df, 1:2, function(x) if (is.na(x)) "NA" else as.character(x)))
 
   if (col_labels) {
     df <- as.matrix(df)

diff --git a/man/to_string_matrix.Rd b/man/to_string_matrix.Rd