boxPlus with sidebar won't collapse

[NemanjaVucic90]

When creating boxPlus with sidebar the height of the box and the additional sidebar is small and cannot be increased

`R version 3.4.4 (2018-03-15) Platform: x86_64-pc-linux-gnu (64-bit) Running under: Ubuntu 18.04.1 LTS

Matrix products: default BLAS: /usr/lib/x86_64-linux-gnu/blas/libblas.so.3.7.1 LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.7.1

locale: [1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C LC_TIME=sr_RS LC_COLLATE=en_US.UTF-8 LC_MONETARY=sr_RS
[6] LC_MESSAGES=en_US.UTF-8 LC_PAPER=sr_RS LC_NAME=C LC_ADDRESS=C LC_TELEPHONE=C
[11] LC_MEASUREMENT=sr_RS LC_IDENTIFICATION=C

attached base packages: [1] stats graphics grDevices utils datasets methods base

other attached packages: [1] d3vennR_0.1.1 withr_2.1.2 jsonlite_1.5 shinyFiles_0.7.2 readxl_1.1.0
[6] stringi_1.2.4 rowr_1.1.3 forcats_0.3.0 stringr_1.3.1 dplyr_0.7.8
[11] purrr_0.2.5 readr_1.1.1 tidyr_0.8.2 tibble_1.4.2 tidyverse_1.2.1
[16] plotly_4.8.0 ggplot2_3.1.0 shinythemes_1.1.2 shinycssloaders_0.2.0 shinyjs_1.0
[21] shiny_1.2.0 colourpicker_1.0 DT_0.5 usethis_1.4.0 devtools_2.0.1
[26] shinydashboard_0.7.1 shinydashboardPlus_0.6.0

loaded via a namespace (and not attached): [1] httr_1.3.1 pkgload_1.0.2 viridisLite_0.3.0 modelr_0.1.2 assertthat_0.2.0 cellranger_1.1.0 yaml_2.2.0
[8] remotes_2.0.2 sessioninfo_1.1.1 pillar_1.3.0 backports_1.1.2 lattice_0.20-35 glue_1.3.0 digest_0.6.18
[15] promises_1.0.1 rvest_0.3.2 colorspace_1.3-2 htmltools_0.3.6 httpuv_1.4.5 plyr_1.8.4 pkgconfig_2.0.2
[22] broom_0.5.0 haven_1.1.2 xtable_1.8-3 scales_1.0.0 processx_3.2.0 later_0.7.5 lazyeval_0.2.1
[29] cli_1.0.1 magrittr_1.5 crayon_1.3.4 mime_0.6 memoise_1.1.0 ps_1.2.1 fs_1.2.6
[36] nlme_3.1-131 xml2_1.2.0 pkgbuild_1.0.2 tools_3.4.4 data.table_1.11.8 prettyunits_1.0.2 hms_0.4.2
[43] munsell_0.5.0 bindrcpp_0.2.2 callr_3.0.0 compiler_3.4.4 rlang_0.3.0.1 grid_3.4.4 rstudioapi_0.8
[50] htmlwidgets_1.3 miniUI_0.1.1.1 base64enc_0.1-3 gtable_0.2.0 R6_2.3.0 lubridate_1.7.4 bindr_0.1.1
[57] rprojroot_1.3-2 desc_1.2.0 Rcpp_1.0.0 tidyselect_0.2.5 `

[DivadNojnarg]

Why are you using uiOutput while there is no renderUI in your server function? For instance, this works for me:

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

ui <- dashboardPage(
  dashboardHeader(title = "Shiny App"),
  dashboardSidebar(
    sidebarMenu(
      menuItem(
        "Home", 
        tabName = "home", 
        icon = icon("home")
      ),
      menuItem(
        "Bar Chart", 
        tabName = "barChart", 
        icon = icon("bar-chart-o")
      )
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "home",
              h3("This will be homepage!")
      ),
      tabItem(
        tabName = "barChart",
        boxPlus(
          width = 9, 
          title = "App to Compare Targets per Drug across Datasets",
          closable = FALSE, 
          status = "warning", 
          solidHeader = FALSE, 
          collapsible = TRUE, 
          enable_sidebar = TRUE, 
          sidebar_width = 25,
          sidebar_start_open = TRUE, 
          enable_dropdown = TRUE,
          sidebar_content = tagList(
            sliderInput(
              "obs", 
              "Number of observations:",
              min = 0, 
              max = 1000,
              value = 500
            ) 
          ),
          plotOutput("distPlot")                     
        )
      )
    )
  )
)

server <- function(input, output) {
  output$distPlot <- renderPlot({
    hist(rnorm(input$obs))
  })
}

shinyApp(ui, server)