Merge pull request #247 from jdblischak/remove-rlang

Replace rlang::is_installed() with base::requireNamespace()
Merck · May 7, 2024 · 11fb5e2 · 11fb5e2
2 parents 770a551 + c15e6f3
commit 11fb5e2
Show file tree

Hide file tree

Showing 22 changed files with 23 additions and 25 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -44,7 +44,6 @@ Imports:
     future,
     methods,
     mvtnorm,
-    rlang,
     stats,
     survival,
     utils

diff --git a/NAMESPACE b/NAMESPACE
@@ -42,7 +42,6 @@ importFrom(future,plan)
 importFrom(methods,is)
 importFrom(mvtnorm,GenzBretz)
 importFrom(mvtnorm,pmvnorm)
-importFrom(rlang,is_installed)
 importFrom(survival,Surv)
 importFrom(survival,is.Surv)
 importFrom(survival,survfit)

diff --git a/R/get_analysis_date.R b/R/get_analysis_date.R
@@ -69,7 +69,7 @@
 #'
 #' @export
 #'
-#' @examplesIf rlang::is_installed("gsDesign2")
+#' @examplesIf requireNamespace("gsDesign2", quietly = TRUE)
 #' library(gsDesign2)
 #'
 #' alpha <- 0.025

diff --git a/R/get_cut_date_by_event.R b/R/get_cut_date_by_event.R
@@ -29,7 +29,7 @@
 #'
 #' @export
 #'
-#' @examplesIf rlang::is_installed("dplyr")
+#' @examplesIf requireNamespace("dplyr", quietly = TRUE)
 #' library(dplyr)
 #'
 #' # Use default enrollment and calendar cut date

diff --git a/R/randomize_by_fixed_block.R b/R/randomize_by_fixed_block.R
@@ -32,7 +32,7 @@
 #'
 #' @export
 #'
-#' @examplesIf rlang::is_installed("dplyr")
+#' @examplesIf requireNamespace("dplyr", quietly = TRUE)
 #' library(dplyr)
 #'
 #' # Example 1

diff --git a/R/sim_fixed_n.R b/R/sim_fixed_n.R
@@ -73,7 +73,7 @@
 #'
 #' @export
 #'
-#' @examplesIf rlang::is_installed("dplyr")
+#' @examplesIf requireNamespace("dplyr", quietly = TRUE)
 #' library(dplyr)
 #' library(future)
 #'

diff --git a/R/sim_gs_n.R b/R/sim_gs_n.R
@@ -42,7 +42,7 @@
 #'
 #' @export
 #'
-#' @examplesIf rlang::is_installed("gsDesign2")
+#' @examplesIf requireNamespace("gsDesign2", quietly = TRUE)
 #' library(gsDesign2)
 #'
 #' # Parameters for enrollment

diff --git a/R/sim_pw_surv.R b/R/sim_pw_surv.R
@@ -60,7 +60,7 @@
 #'
 #' @export
 #'
-#' @examplesIf rlang::is_installed("dplyr")
+#' @examplesIf requireNamespace("dplyr", quietly = TRUE)
 #' library(dplyr)
 #'
 #' # Example 1

diff --git a/R/simtrial-package.R b/R/simtrial-package.R
@@ -24,7 +24,3 @@ NULL
 
 #' @importFrom Rcpp sourceCpp
 NULL
-
-# For safeguarding code examples and tests
-#' @importFrom rlang is_installed
-NULL
diff --git a/R/wlr_weight.R b/R/wlr_weight.R
@@ -93,7 +93,7 @@ mb <- function(delay = 4, w_max = Inf) {
 #' "Designing therapeutic cancer vaccine trials with delayed treatment effect."
 #' @export
 #'
-#' @examplesIf rlang::is_installed("gsDesign2")
+#' @examplesIf requireNamespace("gsDesign2", quietly = TRUE)
 #' library(gsDesign2)
 #'
 #' # Example 1: Unstratified ----

diff --git a/man/early_zero.Rd b/man/early_zero.Rd
diff --git a/man/get_analysis_date.Rd b/man/get_analysis_date.Rd
diff --git a/man/get_cut_date_by_event.Rd b/man/get_cut_date_by_event.Rd
diff --git a/man/randomize_by_fixed_block.Rd b/man/randomize_by_fixed_block.Rd
diff --git a/man/sim_fixed_n.Rd b/man/sim_fixed_n.Rd
diff --git a/man/sim_gs_n.Rd b/man/sim_gs_n.Rd
diff --git a/man/sim_pw_surv.Rd b/man/sim_pw_surv.Rd
diff --git a/vignettes/arbitrary-hazard.Rmd b/vignettes/arbitrary-hazard.Rmd
@@ -16,7 +16,8 @@ knitr::opts_chunk$set(
   out.width = "100%"
 )
 
-run <- if (rlang::is_installed(c("dplyr", "ggplot2"))) TRUE else FALSE
+run <- requireNamespace("dplyr", quietly = TRUE) &&
+  requireNamespace("ggplot2", quietly = TRUE)
 knitr::opts_chunk$set(eval = run)
 ```
 

diff --git a/vignettes/maxcombo.Rmd b/vignettes/maxcombo.Rmd
@@ -14,7 +14,8 @@ knitr::opts_chunk$set(
   comment = "#>"
 )
 
-run <- if (rlang::is_installed(c("dplyr", "gt"))) TRUE else FALSE
+run <- requireNamespace("dplyr", quietly = TRUE) &&
+  requireNamespace("gt", quietly = TRUE)
 knitr::opts_chunk$set(eval = run)
 ```
 

diff --git a/vignettes/modest-wlrt.Rmd b/vignettes/modest-wlrt.Rmd
@@ -14,7 +14,7 @@ knitr::opts_chunk$set(
   comment = "#>"
 )
 
-run <- if (rlang::is_installed(c("dplyr"))) TRUE else FALSE
+run <- requireNamespace("dplyr", quietly = TRUE)
 knitr::opts_chunk$set(eval = run)
 ```
 

diff --git a/vignettes/rmst.Rmd b/vignettes/rmst.Rmd
@@ -14,7 +14,8 @@ knitr::opts_chunk$set(
   comment = "#>"
 )
 
-run <- if (rlang::is_installed(c("gt", "survRM2"))) TRUE else FALSE
+run <- requireNamespace("gt", quietly = TRUE) &&
+  requireNamespace("survRM2", quietly = TRUE)
 knitr::opts_chunk$set(eval = run)
 ```
 

diff --git a/vignettes/routines.Rmd b/vignettes/routines.Rmd
@@ -14,7 +14,8 @@ knitr::opts_chunk$set(
   comment = "#>"
 )
 
-run <- if (rlang::is_installed(c("dplyr", "gt"))) TRUE else FALSE
+run <- requireNamespace("dplyr", quietly = TRUE) &&
+  requireNamespace("gt", quietly = TRUE)
 knitr::opts_chunk$set(eval = run)
 ```