Remove library(dplyr) instances that were only needed for pipe

Author: jdblischak

R/as_gt.R

@@ -35,8 +35,6 @@ as_gt <- function(x, ...) {
 #' @examples
 #' # Fixed design examples ----
 #'
-#' library(dplyr)
-#'
 #' # Enrollment rate
 #' enroll_rate <- define_enroll_rate(
 #'   duration = 18,
@@ -162,7 +160,6 @@ fd_footnote <- function(x, method) {
 #' \donttest{
 #' # Group sequential design examples ---
 #'
-#' library(dplyr)
 #' # Example 1 ----
 #' # The default output
 #'

R/as_rtf.R

@@ -39,7 +39,6 @@ as_rtf <- function(x, ...) {
 #' @export
 #'
 #' @examples
-#' library(dplyr)
 #'
 #' # Enrollment rate
 #' enroll_rate <- define_enroll_rate(
@@ -181,7 +180,6 @@ check_rel_width <- function(width, n_col) {
 #' #'
 #' \donttest{
 #' # the default output
-#' library(dplyr)
 #'
 #' gs_design_ahr() |>
 #'   summary() |>

R/fixed_design_ahr.R

@@ -47,7 +47,6 @@
 #'
 #' @examples
 #' # AHR method ----
-#' library(dplyr)
 #'
 #' # Example 1: given power and compute sample size
 #' x <- fixed_design_ahr(

R/fixed_design_fh.R

@@ -30,7 +30,6 @@
 #'
 #' @examples
 #' # WLR test with FH weights ----
-#' library(dplyr)
 #'
 #' # Example 1: given power and compute sample size
 #' x <- fixed_design_fh(

R/fixed_design_lf.R

@@ -29,7 +29,6 @@
 #'
 #' @examples
 #' # LF method ----
-#' library(dplyr)
 #'
 #' # Example 1: given power and compute sample size
 #' x <- fixed_design_lf(

R/fixed_design_maxcombo.R

@@ -32,7 +32,6 @@
 #'
 #' @examples
 #' # MaxCombo test ----
-#' library(dplyr)
 #'
 #' # Example 1: given power and compute sample size
 #' x <- fixed_design_maxcombo(

R/fixed_design_mb.R

@@ -30,7 +30,6 @@
 #'
 #' @examples
 #' # WLR test with MB weights ----
-#' library(dplyr)
 #'
 #' # Example 1: given power and compute sample size
 #' x <- fixed_design_mb(

R/fixed_design_milestone.R

@@ -30,7 +30,6 @@
 #'
 #' @examples
 #' # Milestone method ----
-#' library(dplyr)
 #'
 #' # Example 1: given power and compute sample size
 #' x <- fixed_design_milestone(

R/fixed_design_rd.R

@@ -35,7 +35,6 @@
 #'
 #' @examples
 #' # Binary endpoint with risk differences ----
-#' library(dplyr)
 #'
 #' # Example 1: given power and compute sample size
 #' x <- fixed_design_rd(

R/fixed_design_rmst.R

@@ -30,7 +30,6 @@
 #'
 #' @examples
 #' # RMST method ----
-#' library(dplyr)
 #'
 #' # Example 1: given power and compute sample size
 #' x <- fixed_design_rmst(