Line-based theme elements now also use linewidth over size

cpsievert · cpsievert · commit 2ae0fc1e31ae · 2022-11-02T14:03:46.000-05:00
diff --git a/R/ggplotly.R b/R/ggplotly.R
@@ -1199,7 +1199,7 @@ verifyUnit <- function(u) {
   
   ## the default unit in ggplot2 is millimeters (unless it's element_text())
   if (inherits(u, "element")) {
-    grid::unit(u$size %||% 0, "points")
+    grid::unit(u$linewidth %||% u$size %||% 0, "points")
   } else {
     grid::unit(u %||% 0, "mm")
   }

Original file line number	Diff line number	Diff line change
`@@ -1199,7 +1199,7 @@ verifyUnit <- function(u) {`
`1199`	`1199`
`1200`	`1200`	`## the default unit in ggplot2 is millimeters (unless it's element_text())`
`1201`	`1201`	`if (inherits(u, "element")) {`
`1202`		`- grid::unit(u$size %\|\|% 0, "points")`
	`1202`	`+ grid::unit(u$linewidth %\|\|% u$size %\|\|% 0, "points")`
`1203`	`1203`	`} else {`
`1204`	`1204`	`grid::unit(u %\|\|% 0, "mm")`
`1205`	`1205`	`}`