r shiny - uiOutput não é renderizado dentro do menuItem
Pergunta, questão
Por que umsliderInput()
que é gerado noserver
e renderizados noui
comuiOutput()
não é exibido em ummenuItem()
?
Exemplo
Neste aplicativo simples, estou gerando umsliderInput
noserver
(Note omenuItem
é deliberadamente comentado) e funciona conforme o esperado
library(shiny)
library(shinydashboard)
rm(ui, server)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenu(
#menuItem(text = "data options",
checkboxGroupInput(inputId = "cbg_group1", label = "group 1",
choices = c("some","check","boxes","to","choose","from") ),
uiOutput("sli_val1"),
checkboxGroupInput(inputId = "cbg_group2", label = "group 2",
choices = c("another","set","of","check","boxes") ),
# ),
menuItem(text = "another tab")
)
),
dashboardBody()
)
server <- function(input, output, session){
withProgress(message = "loading page", value=0.1, {
## simulate loading some data
Sys.sleep(3)
## slider input
output$sli_val1 <- renderUI({
sliderInput(inputId = "sli_val1",
label = "values", min = 0, max = 100,
value = c(25, 75) )
})
setProgress(value=1, detail="Complete")
})
}
shinyApp(ui = ui, server = server)
No entanto, quando movo ouiOutput
dentro de ummenuItem( )
, a saída não é mais renderizada:
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenu(
menuItem(text = "data options",
checkboxGroupInput(inputId = "cbg_group1", label = "group 1",
choices = c("some","check","boxes","to","choose","from") ),
uiOutput("sli_val1"),
checkboxGroupInput(inputId = "cbg_group2", label = "group 2",
choices = c("another","set","of","check","boxes") )
),
menuItem(text = "another tab")
)
),
dashboardBody()
)