使用shinydashboard的menuSubItem中的ui输出 [英] Using uiOutput in menuSubItem of shinydashboard
本文介绍了使用shinydashboard的menuSubItem中的ui输出的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
当我在menuSubItem
中使用uiOutput
时,我试图动态呈现的下拉菜单不显示。这是不受支持还是我做错了什么?下面是一个可重复使用的示例:
### ui.R
library(shiny)
library(shinydashboard)
# Create dashboard header
header <- dashboardHeader()
# Create dashboard sidebar
sidebar <- dashboardSidebar(
sidebarMenu(
menuItem(text="test1", tabName="test1",
menuSubItem(icon=NULL, selectInput("x", "X", c("a", "b", "c"), selected="a")),
menuSubItem(icon=NULL, uiOutput("y"))
)
)
)
# Create dashboard body
body <- dashboardBody()
shinyUI(
dashboardPage(
skin="purple",
header,
sidebar,
body
)
)
‘
### server.R
library(shiny)
shinyServer(function(input, output, session) {
output$y <- renderUI({
y_ <- switch(input$x,
a=1:10,
b=11:20,
c=21:30)
selectInput("y", "Y", y_)
})
})
推荐答案
该问题已通过显式指定每个menuSubItem
的选项卡名得到更正,如下所示:
# Create dashboard sidebar
sidebar <- dashboardSidebar(
sidebarMenu(
menuItem(text="test1", tabName="test1",
menuSubItem(icon=NULL, tabName="test1", selectInput("x", "X", c("a", "b", "c"), selected="a")),
menuSubItem(icon=NULL, tabName="test1", uiOutput("y"))
)
)
)
这篇关于使用shinydashboard的menuSubItem中的ui输出的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文