feat(value_box): Add id parameter

Author: gadenbuie

R/card.R

@@ -28,9 +28,9 @@
 #'   together into one `wrapper` call (e.g. given `card("a", "b",
 #'   card_body("c"), "d")`, `wrapper` would be called twice, once with `"a"` and
 #'   `"b"` and once with `"d"`).
-#' @param id Provide a unique identifier for the card to report its state to
-#'   Shiny. For example, using `id = "my_card"`, you can observe the card's full
-#'   screen state with `input$my_card$full_screen`.
+#' @param id Provide a unique identifier for the `card()` or `value_box()` to
+#'   report its state to Shiny. For example, using `id = "my_card"`, you can
+#'   observe the card's full screen state with `input$my_card$full_screen`.
 #'
 #' @return A [htmltools::div()] tag.
 #'

R/value-box.R

@@ -96,6 +96,7 @@ value_box <- function(
   max_height = NULL,
   fill = TRUE,
   class = NULL,
+  id = NULL,
   theme_color = deprecated()
 ) {
   dots <- separate_arguments(...)
@@ -155,6 +156,7 @@ value_box <- function(
       class,
       if (!is.null(showcase)) showcase_layout$class
     ),
+    id = id,
     full_screen = full_screen,
     height = height,
     max_height = max_height,