complete switch back to the default barheight

gavinsimpson · Nov 21, 2024 · ea44b11 · ea44b11
1 parent 772f06e
commit ea44b11
Show file tree

Hide file tree

Showing 8 changed files with 80 additions and 80 deletions.
diff --git a/R/draw-methods.R b/R/draw-methods.R
@@ -940,8 +940,8 @@
   plt <- plt +
     guides(fill = guide_colourbar(
       title = "Partial effect",
-      direction = "vertical",
-      barheight = grid::unit(0.25, "npc")
+      direction = "vertical"#,
+      #barheight = grid::unit(0.25, "npc")
     ))
 
   # if isotropic smooth, fix aspect ratio
@@ -1254,8 +1254,8 @@
   plt <- plt +
     guides(fill = guide_colourbar(
       title = "Difference",
-      direction = "vertical",
-      barheight = grid::unit(0.25, "npc")
+      direction = "vertical"#,
+      #barheight = grid::unit(0.25, "npc")
     ))
 
   plt

diff --git a/R/smooth-estimates.R b/R/smooth-estimates.R
@@ -1620,8 +1620,8 @@
     guides(
       fill = guide_colourbar(
         title = guide_title,
-        direction = "vertical",
-        barheight = grid::unit(5, "lines") #grid::unit(0.25, "npc")
+        direction = "vertical"#,
+        #barheight = grid::unit(5, "lines") #grid::unit(0.25, "npc")
       ),
       x = guide_axis(angle = angle)
     )
@@ -1765,8 +1765,8 @@
     guides(
       fill = guide_colourbar(
         title = guide_title,
-        direction = "vertical",
-        barheight = grid::unit(5, "lines") #grid::unit(0.25, "npc")
+        direction = "vertical"#,
+        #barheight = grid::unit(5, "lines") #grid::unit(0.25, "npc")
       ),
       x = guide_axis(angle = angle)
     )
@@ -1928,8 +1928,8 @@
     guides(
       fill = guide_colourbar(
         title = guide_title,
-        direction = "vertical",
-        barheight = grid::unit(5, "lines") #grid::unit(0.25, "npc")
+        direction = "vertical"#,
+        #barheight = grid::unit(5, "lines") #grid::unit(0.25, "npc")
       ),
       x = guide_axis(angle = angle)
     )
@@ -2550,8 +2550,8 @@
   plt <- plt +
     guides(
       fill = guide_colourbar(
-        title = guide_title, direction = "vertical",
-        barheight = grid::unit(5, "lines") #grid::unit(0.25, "npc")
+        title = guide_title, direction = "vertical"#,
+        #barheight = grid::unit(5, "lines") #grid::unit(0.25, "npc")
       ),
       x = guide_axis(angle = angle)
     )
@@ -2694,8 +2694,8 @@
     guides(
       fill = guide_colourbar(
         title = guide_title,
-        direction = "vertical",
-        barheight = grid::unit(5, "lines") #grid::unit(0.25, "npc")
+        direction = "vertical"#,
+        #barheight = grid::unit(5, "lines") #grid::unit(0.25, "npc")
       ),
       x = guide_axis(angle = angle)
     )

diff --git a/...at/_snaps/difference-smooths/draw-difference-smooths-bivariate-gam-contours.svg b/...at/_snaps/difference-smooths/draw-difference-smooths-bivariate-gam-contours.svg
diff --git a/tests/testthat/_snaps/difference-smooths/draw-difference-smooths-bivariate-gam.svg b/tests/testthat/_snaps/difference-smooths/draw-difference-smooths-bivariate-gam.svg
diff --git a/...testthat/_snaps/draw-methods/draw-smooth-samples-for-bivariate-gam-contours.svg b/...testthat/_snaps/draw-methods/draw-smooth-samples-for-bivariate-gam-contours.svg