Adjust the height of bsCollapsePanel in shiny app - r

Question

I'm using the shinyBS package in a shiny app and I'm struggle with adjusting the height of the panel ! I have tried to put the height=100% in bsCollapse and bsCollapsePanel but it did not work !
library(shiny)
library(shinythemes)
library(shinyjs)
library(collapsibleTree)
library(shinyBS)
library(shinycssloaders)
ui <- fluidPage(
theme = shinytheme("flatly"),
useShinyjs(),
navbarPage(HTML("MyApp"),
tabPanel("Home",
bsCollapse(id = "output_data_all", multiple = TRUE,open = "Data",
bsCollapsePanel("Data", style = "info",
selectInput(inputId = 'Ind1',
label = 'Select Container',
choices = c(),
selected = NULL),
br(),br(),
withSpinner(collapsibleTreeOutput("t1"),type=5),
br(),br()
))
)
)
)
Server <- function(input, output,session){
output$t1 <- renderCollapsibleTree({
})
}

Answer 1

You can enclose the contents of the panel in a div with style = "height: 70vh" (adjust 70 as you want - this means 70% of the viewport height):
ui <- fluidPage(
theme = shinytheme("flatly"),
useShinyjs(),
navbarPage(
HTML("MyApp"),
tabPanel("Home",
bsCollapse(id = "output_data_all", multiple = TRUE,open = "Data",
bsCollapsePanel("Data", style = "info",
div(
style = "height: 70vh",
selectInput(inputId = 'Ind1',
label = 'Select Container',
choices = c(),
selected = NULL),
br(),br(),
withSpinner(collapsibleTreeOutput("t1"),type=5),
br(),br()
)
)
)
)
)
)