Pass "o" and "b" types through lines()

grantmcdermott · Mar 6, 2023 · 2426c15 · 2426c15
1 parent 5898454
commit 2426c15
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/plot2.R b/R/plot2.R
@@ -146,7 +146,7 @@ plot2.default = function(
   if (!is.null(grid)) grid
 
   # draw the points/lines
-  if (type %in% c("p", "o", "b")) invisible(
+  if (type=="p") invisible(
     lapply(
       seq_along(split_data), 
       function(i) points(
@@ -164,7 +164,9 @@ plot2.default = function(
       function(i) lines(
         x=split_data[[i]]$x, 
         y=split_data[[i]]$y, 
-        col = cols[i], type = type
+        col = cols[i], 
+        type = type,
+        pch = pch
         )
       )
   )