From d816ea8f431a0a762b11c34feae03c9553a4a01c Mon Sep 17 00:00:00 2001
From: levisc8 <levisc8@gmail.com>
Date: Tue, 29 Nov 2022 19:59:41 -0500
Subject: [PATCH] fixes #64 so plot names are now correct

---
 R/utils-export.R | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/R/utils-export.R b/R/utils-export.R
index 1684ef6..5df3bbb 100644
--- a/R/utils-export.R
+++ b/R/utils-export.R
@@ -1726,17 +1726,20 @@ conv_plot.ipmr_ipm <- function(ipm, iterations = NULL,
     } else {
       y_nm <- expression(paste("Single Time Step   ", lambda))
     }
-}
+  }
   for(i in seq_len(ncol(all_lams))) {
 
-    if(!"main" %in% names(dots)) dots$main <- nms[i]
+    if(!"main" %in% names(dots)){
+      use_dots <- c(dots, list(main =  nms[i]))
+    } else {
+      use_dots <- dots
+    }
 
     all_args <- c(list(y    = all_lams[ , i],
                        x    = iterations,
                        xlab = "Transition",
                        ylab = y_nm),
-                  dots)
-    # plot(all_lams[ , i], main = nms[i], type = type, dots)
+                  use_dots)
     do.call("plot", all_args)
 
     if(show_stable) {