Merge pull request #464 from yihui/import-once

Import all functions once in `R/gsDesign2-package.R`, and remove the `pkg::` qualifiers

Author: LittleBeannie

NAMESPACE

@@ -81,13 +81,11 @@ importFrom(dplyr,summarize)
 importFrom(dplyr,ungroup)
 importFrom(gsDesign,gsDesign)
 importFrom(gsDesign,sfLDOF)
-importFrom(mvtnorm,GenzBretz)
 importFrom(stats,pnorm)
 importFrom(stats,qnorm)
 importFrom(stats,setNames)
 importFrom(stats,stepfun)
 importFrom(stats,uniroot)
-importFrom(survival,Surv)
 importFrom(tibble,tibble)
 importFrom(utils,tail)
 useDynLib(gsDesign2, .registration = TRUE)

R/ahr.R

@@ -72,8 +72,6 @@
 #' }
 #' \if{html}{The contents of this section are shown in PDF user manual only.}
 #'
-#' @importFrom data.table setDF setDT
-#'
 #' @export
 #'
 #' @examples

R/ahr_blinded.R

@@ -60,9 +60,6 @@
 #' }
 #' \if{html}{The contents of this section are shown in PDF user manual only.}
 #'
-#' @importFrom tibble tibble
-#' @importFrom survival Surv
-#'
 #' @export
 #'
 #' @examples

R/as_gt.R

@@ -258,10 +258,10 @@ as_gt.gs_design <- function(
   )
 
   x <- parts$x %>%
-    dplyr::group_by(Analysis) %>%
+    group_by(Analysis) %>%
     gt::gt() %>%
     gt::tab_spanner(
-      columns = dplyr::all_of(colname_spannersub),
+      columns = all_of(colname_spannersub),
       label = colname_spanner
     ) %>%
     gt::tab_header(title = parts$title, subtitle = parts$subtitle)
@@ -409,7 +409,7 @@ gsd_parts <- function(
   )
 
   list(
-    x = dplyr::arrange(x2, Analysis),
+    x = arrange(x2, Analysis),
     title = title, subtitle = subtitle,
     footnote = footnote %||% gsd_footnote(method, columns),
     alpha = max(filter(x, Bound == bound[1])[[alpha_column]])

R/check_arg.R

@@ -255,7 +255,7 @@ check_enroll_rate_fail_rate <- function(enroll_rate, fail_rate) {
   if ("stratum" %in% colnames(enroll_rate) && "stratum" %in% colnames(fail_rate)) {
     strata_enroll <- unique(enroll_rate$stratum)
     strata_fail <- unique(fail_rate$stratum)
-    strata_common <- dplyr::intersect(strata_enroll, strata_fail)
+    strata_common <- intersect(strata_enroll, strata_fail)
 
     if (sum(strata_common %in% strata_enroll) != length(strata_enroll)) {
       stop("The `Strata` column in the input argument `enroll_rate` and `fail_rate` must be the same!")

R/define.R

@@ -54,7 +54,7 @@ define_enroll_rate <- function(
     duration,
     rate,
     stratum = "All") {
-  df <- tibble::tibble(
+  df <- tibble(
     stratum = stratum,
     duration = duration,
     rate = rate
@@ -117,7 +117,7 @@ define_fail_rate <- function(
     dropout_rate,
     hr = 1,
     stratum = "All") {
-  df <- tibble::tibble(
+  df <- tibble(
     stratum = stratum,
     duration = duration,
     fail_rate = fail_rate,

R/expected_accural.R

@@ -44,10 +44,6 @@
 #' }
 #' \if{html}{The contents of this section are shown in PDF user manual only.}
 #'
-#' @importFrom dplyr filter lead
-#' @importFrom tibble tibble
-#' @importFrom stats stepfun
-#'
 #' @export
 #'
 #' @examples

R/expected_time.R

@@ -45,8 +45,6 @@
 #'    }
 #'  }
 #'
-#' @importFrom stats uniroot
-#'
 #' @export
 #'
 #' @examples

R/fixed_design_ahr.R

@@ -39,8 +39,6 @@
 #'   and `1 - alpha` otherwise).
 #' @param study_duration Study duration.
 #'
-#' @importFrom dplyr filter
-#'
 #' @returns A list of design characteristic summary.
 #'
 #' @export
@@ -121,7 +119,7 @@ fixed_design_ahr <- function(
       analysis_time = study_duration
     )
   }
-  ans <- tibble::tibble(
+  ans <- tibble(
     design = "ahr",
     n = d$analysis$n,
     event = d$analysis$event,

R/fixed_design_fh.R

@@ -24,8 +24,6 @@
 #' @param rho test parameter in Fleming-Harrington method.
 #' @param gamma test parameter in Fleming-Harrington method.
 #'
-#' @importFrom dplyr filter
-#'
 #' @export
 #'
 #' @rdname fixed_design
@@ -120,7 +118,7 @@ fixed_design_fh <- function(
       analysis_time = study_duration
     )
   }
-  ans <- tibble::tibble(
+  ans <- tibble(
     design = "fh",
     n = d$analysis$n,
     event = d$analysis$event,