From fe5d78014e137914ac92c7d896b1e7b86c4eccfa Mon Sep 17 00:00:00 2001 From: Garrick Aden-Buie Date: Fri, 17 Nov 2023 16:46:48 -0500 Subject: [PATCH] improve height constraint in value box row --- inst/apps/317-bslib-preset-shiny-dashboard/app.R | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/inst/apps/317-bslib-preset-shiny-dashboard/app.R b/inst/apps/317-bslib-preset-shiny-dashboard/app.R index 9f202fafe0..4e3e8cc0e7 100644 --- a/inst/apps/317-bslib-preset-shiny-dashboard/app.R +++ b/inst/apps/317-bslib-preset-shiny-dashboard/app.R @@ -1,5 +1,6 @@ library(shiny) library(bslib) +library(htmltools) options( sass.cache = FALSE, @@ -115,9 +116,17 @@ row_cards <- layout_columns(card_a_nav, card_b) row_value_boxes <- layout_columns( - style = "max-height: 200px", - value_box("First", "Thing One", showcase = bsicons::bs_icon("pin-angle-fill")), - value_box("Second", "Thing Two", showcase = bsicons::bs_icon("boombox-fill")) + row_heights = "minmax(100px, 1fr)", + value_box( + "First", + "Thing One", + showcase = bsicons::bs_icon("pin-angle-fill") + ), + value_box( + "Second", + "Thing Two", + showcase = bsicons::bs_icon("boombox-fill") + ) ) ui_navbar <- function(enable_dashboard = TRUE) {