fix print issue

kkmann · Apr 3, 2024 · 2bc389a · 2bc389a
1 parent 3cdde2b
commit 2bc389a
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 7 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -1,7 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
 S3method(print, TwoStageDesignSummary)
-S3method(print, adoptrOptimizationResult)
 export(AverageN2)
 export(Binomial)
 export(ConditionalPower)

diff --git a/R/minimize.R b/R/minimize.R
@@ -105,12 +105,9 @@ minimize <- function(
     return(res)
 }
 
-
-#' @rawNamespace S3method(print, adoptrOptimizationResult)
-print.adoptrOptimizationResult <- function(x, ...) {
-    cat(design2str(x$design, TRUE), "\n")
-}
-
+setClass("adoptrOptimizationResult")
+setMethod("print", signature("adoptrOptimizationResult"),
+          function(x, ...) cat(design2str(x$design, TRUE), "\n"))