Merge pull request #299 from jdblischak/getfromnamespace

Use getFromNamespace instead of ::: to fix S3 dispatch for as_gt()
Merck · Nov 15, 2024 · 18a7211 · 18a7211
2 parents d007ec1 + d6a4d42
commit 18a7211
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/as_gt.R b/R/as_gt.R
@@ -148,10 +148,12 @@ as_gt.simtrial_gs_wlr <- function(x,
 
 #' @export
 as_gt.fixed_design <- function(x, ...) {
-  gsDesign2:::as_gt.fixed_design(x, ...)
+  f <- utils::getFromNamespace("as_gt.fixed_design", "gsDesign2")
+  f(x, ...)
 }
 
 #' @export
 as_gt.gs_design <- function(x, ...) {
-  gsDesign2:::as_gt.gs_design(x, ...)
+  f <- utils::getFromNamespace("as_gt.gs_design", "gsDesign2")
+  f(x, ...)
 }