width and height must be 1 npc to preserve aspect ratio

Author: mrcaseb

R/build_grobs.R

@@ -58,8 +58,8 @@ build_grobs <- function(i, alpha, colour, path, data,
       vp = grid::viewport(
         x = grid::unit(data$x[i], "npc"),
         y = grid::unit(data$y[i], "npc"),
-        width = data$width[i],
-        height = data$height[i],
+        width = grid::unit(data$width[i], "npc"),
+        height = grid::unit(data$height[i], "npc"),
         angle = data$angle[i]
       ),
       just = c(data$hjust[i], data$vjust[i]),

R/theme_element.R

@@ -219,8 +219,8 @@ S7::method(draw_element, element_path) <- function(
       y = as.numeric(y),
       hjust = rep(hj, n),
       vjust = rep(vj, n),
-      width = rep(size, n),
-      height = rep(size, n),
+      width = rep(1, n),
+      height = rep(1, n),
       angle = rep(angle, n)
     ),
     is_theme_element = TRUE