From 61b815b2418fec89fd3e613094bf28e596f18e7e Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Sat, 24 Oct 2015 12:55:07 +0200
Subject: Improve printing method for mkinmod

---
 R/mkinmod.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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")
   }
-- 
cgit v1.2.1