Merge pull request #586 from jdblischak/print-gs-design

Hide the input parameters from print of a design object

Author: LittleBeannie

NAMESPACE

@@ -5,6 +5,8 @@ S3method(as_gt,gs_design_summary)
 S3method(as_gt,simtrial_gs_wlr)
 S3method(as_rtf,fixed_design_summary)
 S3method(as_rtf,gs_design_summary)
+S3method(print,fixed_design)
+S3method(print,gs_design)
 S3method(summary,fixed_design)
 S3method(summary,gs_design)
 S3method(to_integer,fixed_design)

R/print.R

@@ -0,0 +1,11 @@
+# Simple print methods to suppress printing the list element `input` to the
+# console
+
+#' @export
+print.gs_design <- function(x, ...) {
+  print(x[names(x) != "input"])
+  invisible(x)
+}
+
+#' @export
+print.fixed_design <- print.gs_design