Use getFromNamespace instead of ::: to fix S3 dispatch for as_gt()

Merck · Nov 15, 2024 · d6a4d42 · d6a4d42
1 parent d007ec1
commit d6a4d42
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, ...)
 }