diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2015-10-24 12:55:07 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2015-10-24 12:55:07 +0200 |
| commit | 61b815b2418fec89fd3e613094bf28e596f18e7e (patch) | |
| tree | efff6f7504f267f0c5b42258901971d63c82ef13 /R/mkinmod.R | |
| parent | d9a8d5d888cb443d16faff87ae4203fb39625e86 (diff) | |
Improve printing method for mkinmod
Diffstat (limited to 'R/mkinmod.R')
| -rw-r--r-- | R/mkinmod.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/mkinmod.R b/R/mkinmod.R index 27b8410d..f98a3803 100644 --- a/R/mkinmod.R +++ b/R/mkinmod.R @@ -362,7 +362,7 @@ print.mkinmod <- function(x, ...) { cat("$", obs, "\n", sep = "")
spl <- x$spec[[obs]]
cat("$type:", spl$type)
- if (!is.null(spl$to)) cat(", $to: ", spl$to, ", $sink: ", spl$sink, sep = "")
+ 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)
cat("\n")
}
|