fix(value_box): Restore full screen functionality (#699)

Author: gadenbuie

R/value-box.R

@@ -71,12 +71,20 @@ value_box <- function(title, value, ..., showcase = NULL, showcase_layout = show
     fill = fill,
     !!!attribs,
     contents,
-    as.card_item(component_dependency_css("value_box"))
+    as.card_item(value_box_dependency())
   )
 
   as_fragment(tag_require(res, version = 5, caller = "value_box()"))
 }
 
+value_box_dependency <- function() {
+  bs_dependency_defer(value_box_dependency_sass)
+}
+
+value_box_dependency_sass <- function(theme) {
+  component_dependency_sass(theme, "value_box")
+}
+
 #' @param width one of the following:
 #'   * A proportion (i.e., a number between 0 and 1) of available width to
 #'     allocate to the showcase.

inst/components/dist/value_box/value_box.css

@@ -67,7 +67,7 @@
     }
   }
 
-  &.bslib-full-screen {
+  &[data-full-screen="true"] {
     .value-box-grid {
       grid-template-columns: var(--bslib-value-box-widths-full-screen);
     }
@@ -76,7 +76,7 @@
     }
   }
 
-  &:not(.bslib-full-screen) {
+  &:not([data-full-screen="true"]) {
     .value-box-showcase.showcase-top-right {
       margin-top: 0;
     }