Use ylim_render when drawing legend

This avoids an error when adding a legend when 'log = TRUE'. Fixes #407.
joshuaulrich · Jan 31, 2024 · 13701fc · 13701fc
1 parent 9f13600
commit 13701fc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/plot.R b/R/plot.R
@@ -742,7 +742,8 @@ addLegend <- function(legend.loc="topright", legend.names=NULL, col=NULL, ncol=1
     if(is.na(on[1])){
       yrange <- c(0, 1)
     } else {
-      yrange <- x$get_panel(on)$ylim
+      panel <- x$get_panel(on)
+      yrange <- panel$ylim_render
     }
     # this just gets the data of the main plot
     # TODO: get the data of panels[on]