replaced map_lgl usage with unname(sapply(c("ggplot2", "grid"), requi…

…reNamespace, quietly = TRUE)) weirdly, the macOS-latest GitHub action is erroring (and all of the others are fine)
n8thangreen · Jan 2, 2025 · da3aa71 · da3aa71
1 parent 46cd2ba
commit da3aa71
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 6 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -133,7 +133,6 @@ importFrom(purrr,keep)
 importFrom(purrr,list_cbind)
 importFrom(purrr,map)
 importFrom(purrr,map_int)
-importFrom(purrr,map_lgl)
 importFrom(purrr,pluck)
 importFrom(reshape2,melt)
 importFrom(rlang,.data)

diff --git a/R/plot.bcea.R b/R/plot.bcea.R
@@ -35,7 +35,6 @@
 #'          [ceac.plot()],
 #'          [evi.plot()]
 #' @importFrom Rdpack reprompt
-#' @importFrom purrr map_lgl
 #'          
 #' @references
 #' 
@@ -130,7 +129,8 @@ plot.bcea <- function(x,
     })
   } else {
 
-    is_req_pkgs <- map_lgl(c("ggplot2","grid"), requireNamespace, quietly = TRUE)
+    is_req_pkgs <- unname(sapply(c("ggplot2", "grid"),
+                                 requireNamespace, quietly = TRUE))
 
     if (!all(is_req_pkgs)) {
       message("falling back to base graphics\n")

diff --git a/R/select_plot_type.R b/R/select_plot_type.R
@@ -6,7 +6,6 @@
 #' @param graph Type names; string
 #' @return Plot ID integer 1:base R; 2:ggplot2; 3:plotly
 #' @importFrom cli cli_alert_warning
-#' @importFrom purrr map_lgl
 #' @keywords dplot internal
 #' 
 select_plot_type <- function(graph) {
@@ -16,8 +15,8 @@ select_plot_type <- function(graph) {
   graph_lup <- c(base = 1, ggplot2 = 2, plotly =3)
   graph_type <- graph_lup[graph]
 
-  is_req_pkgs <- purrr::map_lgl(c("ggplot2", "grid"),
-                                requireNamespace, quietly = TRUE)
+  is_req_pkgs <- unname(sapply(c("ggplot2", "grid"),
+                               requireNamespace, quietly = TRUE))
 
   if (graph_type == 2 && !all(is_req_pkgs)) {
     cli::cli_alert_warning(