diff options
| -rw-r--r-- | NEWS.md | 2 | ||||
| -rw-r--r-- | R/mkinmod.R | 5 |
2 files changed, 5 insertions, 2 deletions
@@ -8,6 +8,8 @@ - Give an explanatory error message when mkinmod fails due to a missing definition of a target variable +- `print.mkinmod()`: Improve formatting when printing mkinmod model definitions + ## mkin 0.9-41 (2015-11-09) ### Minor changes diff --git a/R/mkinmod.R b/R/mkinmod.R index c70f1260..5ec62bbe 100644 --- a/R/mkinmod.R +++ b/R/mkinmod.R @@ -363,8 +363,9 @@ print.mkinmod <- function(x, ...) { cat("$", obs, "\n", sep = "")
spl <- x$spec[[obs]]
cat("$type:", spl$type)
- if (!is.null(spl$to)) cat(", $to: ", paste(spl$to, collapse = ", "), ", $sink: ", spl$sink, sep = "")
- if (!is.null(spl$full_name)) if (!is.na(spl$full_name)) cat(", $full_name:", spl$full_name)
+ if (!is.null(spl$to) && length(spl$to)) cat("; $to: ", paste(spl$to, collapse = ", "), sep = "")
+ cat("; $sink: ", spl$sink, sep = "")
+ if (!is.null(spl$full_name)) if (!is.na(spl$full_name)) cat("; $full_name:", spl$full_name)
cat("\n")
}
if (is.matrix(x$coefmat)) cat("Coefficient matrix $coefmat available\n")
|