From 37a252cb44fed78c4f7a00a2f7874f1c47456468 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Tue, 19 Aug 2014 17:55:06 +0200 Subject: Improve formatting of differential equations in output Rebuild of FOCUS_Z vignette with improved formatting --- R/mkinfit.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'R') diff --git a/R/mkinfit.R b/R/mkinfit.R index c98c7586..92c8f8bf 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -567,7 +567,7 @@ print.summary.mkinfit <- function(x, digits = max(3, getOption("digits") - 3), . if (!is.null(x$warning)) cat("\n\nWarning:", x$warning, "\n\n") cat("\nEquations:\n") - print(noquote(as.character(x[["diffs"]]))) + cat(noquote(strwrap(x[["diffs"]], exdent = 11)), fill = TRUE) df <- x$df rdf <- df[2] -- cgit v1.2.1