🐛 Render legend.background when compose_crux(complete = TRUE) (#54)

* crux composition has background

* update snapshots

* add news bullet

NEWS.md

@@ -2,6 +2,8 @@
 
 * Fixed bug hindering `position = "inside"` placement (#42)
 * Fixed bug in `theme_guide(key.size, key.height, key.width)` (#41)
+* Complete guides based on a crux composition now render the `legend.background` 
+  element (#50)
 
 # legendry 0.2.0
 

R/compose-crux.R

@@ -111,7 +111,8 @@ ComposeCrux <- ggproto(
     title_position = "legend.title.position",
     text_position = "legend.text.position",
     title = "legend.title",
-    margin = "legend.margin"
+    margin = "legend.margin",
+    background = "legend.background"
   ),
 
   setup_elements = function(params, elements, theme) {
@@ -220,6 +221,12 @@ ComposeCrux <- ggproto(
       if (!is.null(elems$margin)) {
         gt <- gtable_add_padding(gt, elems$margin)
       }
+      if (!is.zero(elems$background)) {
+        gt <- gtable_add_grob(
+          gt, element_grob(elems$background), name = "background",
+          clip = "off", t = 1, r = -1, b = -1, l = 1, z = -Inf
+        )
+      }
     }
     gt
   }