DivadNojnarg
commented
6 years ago Input elements that are in inactive tabs are not calculated and are NULL. Once you click on the second sidebar panel, the problem disappear.
I made a quick fix (notice that your issue would also occur if you are using basic shiny tabPanel functions).
Try reinstall shinydashboardPlus from GitHub:
devtools::install.github("DivadNojnarg/shinydashboardPlus")If you want to put your checkbox in the second tab, you should tell shinydashboardPlus that the second rightSidebarTabItem is active (TRUE) and that the second rightSidebarTabContent is also active (TRUE). The dashboard will be started with the second tab active and your slider will be rendered immediately.
if (interactive()) {
library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
shinyApp(
ui = dashboardPagePlus(
header = dashboardHeaderPlus(
enable_rightsidebar = TRUE,
rightSidebarIcon = "gears"
),
sidebar = dashboardSidebar(),
body = dashboardBody(
uiOutput("uiBody")
),
rightsidebar = rightSidebar(
background = "dark",
rightSidebarTabList(
rightSidebarTabItem(
id = 1,
icon = "desktop"
),
rightSidebarTabItem(
id = 2,
icon = "desktop",
active = TRUE
)
),
rigthSidebarPanel(
rightSidebarTabContent(
id = 1,
title = "Tab 1",
numericInput("num", "Number:", 1, min = 0, max = 10)
),
rightSidebarTabContent(
id = 2,
title = "Tab 2",
active = TRUE,
uiOutput("uiAdvanced")
)
)
),
title = "Right Sidebar"
),
server = function(input, output) {
output$uiBody <- renderUI({
fluidRow(
textInput("caption", "Caption", "Data Summary"),
numericInput("obs", "Observations:", 10, min = 1, max = 100),
if (!is.null(input$advanced)){
if (input$advanced) {
sliderInput(
"obs",
"Number of observations:",
min = 0,
max = 1000,
value = 500
)
}
}
)
})
output$uiAdvanced <- renderUI({
checkboxInput(
"advanced",
label = "Show advanced features",
value = TRUE
)
})
}
)
}This approach will not work if you put two uiOuput items in separate tabItems. For now, you should put all dynamically rendered UI elements in one dedicated tab and set it to active. I will find a better approach soon.
lozalojo
I create an input element called advanced that modifies what's shown in the body. When element is TRUE, I add an extra sliderInput. input.advance is TRUE by default, but when I open the app, the sliderInput is not shown. When I click in the second Tab, then the sliderinput appears.
If I put the input.advance in Tab 1, it works, seems like only Tab 1 elements are created.