undo print.mrgmod export; rename the function

metrumresearchgroup · Jul 23, 2024 · d658747 · d658747
1 parent 8953de0
commit d658747
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/print.R b/R/print.R
@@ -27,8 +27,7 @@ timeheader <- sprintf(print_leading,c("  time: ", "    "))
 print.os.header <- sprintf(print_leading, "  OS type: ")
 print.solver.header <- sprintf(print_leading, c("  solver:"))
 
-#' @export
-print.mrgmod <- function(x,verbose=FALSE,...) {
+print_mrgmod <- function(x,verbose=FALSE,...) {
 
   add <- x@add
   nadd <- length(add)
@@ -150,7 +149,7 @@ print.mrgmod <- function(x,verbose=FALSE,...) {
 ##' @param object the model object
 ##' @export
 ##' @keywords internal
-setMethod("show", "mrgmod", function(object) print.mrgmod(object))
+setMethod("show", "mrgmod", function(object) print_mrgmod(object))