Merge pull request #467 from jdblischak/as-gt

Redirect as_gt() to simtrial when it is masked by gsDesign2::as_gt()

Author: LittleBeannie

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: gsDesign2
 Title: Group Sequential Design with Non-Constant Effect
-Version: 1.1.2.22
+Version: 1.1.2.23
 Authors@R: c(
     person("Keaven", "Anderson", email = "keaven_anderson@merck.com", role = c("aut")),
     person("Yilong", "Zhang", email = "elong0527@gmail.com", role = c("aut")),

NAMESPACE

@@ -2,6 +2,7 @@
 
 S3method(as_gt,fixed_design)
 S3method(as_gt,gs_design)
+S3method(as_gt,simtrial_gs_wlr)
 S3method(as_rtf,fixed_design)
 S3method(as_rtf,gs_design)
 S3method(summary,fixed_design)

R/as_gt.R

@@ -415,3 +415,11 @@ gsd_parts <- function(
     alpha = max(filter(x, Bound == bound[1])[[alpha_column]])
   )
 }
+
+# Only purpose of the method below is to fix S3 redirection when gsDesign2 is
+# loaded after simtrial, which masks the as_gt() generic from simtrial
+
+#' @export
+as_gt.simtrial_gs_wlr <- function(x, ...) {
+  simtrial:::as_gt.simtrial_gs_wlr(x, ...)
+}