fixes RinteRface#257

chi2labs · Apr 4, 2024 · 3dfa227 · 3dfa227
1 parent 130a335
commit 3dfa227
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/f7Card.R b/R/f7Card.R
@@ -266,7 +266,7 @@ f7SocialCard <- function(..., image = NULL, author = NULL, date = NULL,
 #' @export
 f7ExpandableCard <- function(..., id = NULL, title = NULL,
                              subtitle = NULL, color = NULL,
-                             image = NULL, fullBackground = FALSE) {
+                             image = NULL, fullBackground = FALSE, height = "300px") {
 
   cardColorCl <- if (!is.null(color)) paste0("bg-color-", color)
 
@@ -328,6 +328,7 @@ f7ExpandableCard <- function(..., id = NULL, title = NULL,
   # main wrapper
   shiny::tags$div(
     class = "card card-expandable",
+    style = paste0("height: ",height),
     `data-card` = paste0("#", id),
     id = id,
     shiny::tags$div(
@@ -345,6 +346,7 @@ f7ExpandableCard <- function(..., id = NULL, title = NULL,
       } else {
         shiny::tags$div(
           class = cardColorCl,
+          #style = paste0("height: ",height),
           style = "height: 300px;",
           cardHeader,
           closeCard