subrect - check first arg for all coords

raredd · Dec 24, 2021 · ec576e1 · ec576e1
1 parent 0af64db
commit ec576e1
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/plot_extra.R b/R/plot_extra.R
@@ -1636,6 +1636,13 @@ subrect <- function(xleft, ybottom, xright, ytop, type = c('diagonal', 'square')
   type <- match.arg(type)
   pos <- match.arg(pos)
 
+  if (length(xleft) == 4L) {
+    ybottom <- xleft[2L]
+    xright <- xleft[3L]
+    ytop <- xleft[4L]
+    xleft <- xleft[1L]
+  }
+
   if (type == 'diagonal') {
     left <- c(xleft, xright, xleft, xleft)
     right <- c(xleft, xright, xright, xleft)