remove unnecessary deps

harvard-ufds · Mar 11, 2024 · 0f21634 · 0f21634
1 parent 3c6134c
commit 0f21634
Show file tree

Hide file tree

Showing 4 changed files with 3 additions and 8 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -23,15 +23,12 @@ License: MIT + file LICENSE
 Encoding: UTF-8
 LazyData: true
 Imports: 
-    stats,
     dplyr,
-    stringr,
     lme4,
     purrr,
     progressr, 
     furrr,
     future,
-    methods,
     rlang,
     Rcpp
 RoxygenNote: 7.3.1

diff --git a/NAMESPACE b/NAMESPACE
@@ -13,7 +13,6 @@ importFrom(dplyr,summarise)
 importFrom(furrr,furrr_options)
 importFrom(furrr,future_map)
 importFrom(furrr,future_map2)
-importFrom(methods,is)
 importFrom(progressr,progressor)
 importFrom(progressr,with_progress)
 importFrom(purrr,map)

diff --git a/R/saeczi.R b/R/saeczi.R
@@ -56,7 +56,6 @@
 #' @importFrom progressr progressor with_progress
 #' @importFrom furrr future_map furrr_options future_map2
 #' @importFrom purrr map map2 map_dfr
-#' @importFrom methods is
 
 saeczi <- function(samp_dat,
                    pop_dat,
@@ -84,7 +83,7 @@ saeczi <- function(samp_dat,
     stop("Invalid estimand, must be either 'means' or 'totals'")
   }
 
-  if (parallel && is(future::plan(), "sequential")) {
+  if (parallel && ("sequential" %in% class(future::plan()))) {
     message("In order for the internal processes to be run in parallel a `future::plan()` must be specified by the user")
     message("See <https://future.futureverse.org/reference/plan.html> for reference on how to use `future::plan()`")
   }

diff --git a/R/utils.R b/R/utils.R
@@ -311,8 +311,8 @@ mod_param_fmt <- function(.fit, ref = NULL) {
       rownames(ref_glm)
     ) 
   } else {
-    lm_terms <- ref$.lm[!stringr::str_detect(ref$.lm, "\\|")]
-    glm_terms <- ref$.glm[!stringr::str_detect(ref$.glm, "\\|")]
+    lm_terms <- ref$.lm[!grepl("\\|", ref$.lm)]
+    glm_terms <- ref$.glm[!grepl("\\|", ref$.glm)]
     beta_lm <- setNames(
       rep(NA, times = length(lm_terms) + 1),
       c('(Intercept)', lm_terms)