R：当我使用带有选择输入的小部件时，仪表板主体不会改变

我正在尝试创建一个侧栏中有多个选项卡的仪表板，仪表板主体依赖于这些选项卡。在1选项卡中有1个选择输入。但当我单击选项卡时，仪表板主体没有改变。我尝试了几次“UpdateBitEMS”，但都没有成功。非常感谢

下面是一个示例参考代码

##UI

library(shinydashboard)
library(shiny)
sidebar= dashboardSidebar(
sidebarMenu(
  menuItem("Dashboard", tabName = "tab1", icon = icon("dashboard"),
  fluidRow(
    selectInput("options",label=h5("Select Column"),""))),
  menuItem("Widgets", tabName = "tab2", icon = icon("th"),
  fluidRow(
    selectInput("options",label=h5("Select Column"),"")))
  )
)

body=  dashboardBody(
tabItems(
  # First tab content
  tabItem(tabName = "tab1",
          fluidRow(
            box(plotOutput("plot1", height = 250))
          )
  ),
  # Second tab content
  tabItem(tabName = "m2",selected=TRUE,
          h2("Widgets tab content")
  )
)
)
dashboardPage(
dashboardHeader(title= "city"),sidebar,body)


##Server
server <- function(input, output) {
outputplot1= renderPlot({
})
 }

##UI
图书馆（shinydashboard）
图书馆（闪亮）
侧栏=仪表板侧栏(
侧边栏菜单(
菜单项（“仪表板”，tabName=“tab1”，icon=icon（“仪表板”），
fluidRow(
选择输入（“选项”，标签=h5（“选择列”），“”），
菜单项（“小部件”，tabName=“tab2”，icon=icon（“th”），
fluidRow(
选择输入（“选项”，标签=h5（“选择列”），“”）
)
)
车身=仪表板车身(
tabItems(
#第一个选项卡内容
tabItem（tabName=“tab1”，
fluidRow(
框（绘图输出（“绘图1”，高度=250））
)
),
#第二个选项卡内容
tabItem（tabName=“m2”，selected=TRUE，
h2（“小部件选项卡内容”）
)
)
)
仪表板页面(
仪表板标题（title=“city”）、侧栏、正文
##服务器
服务器很难理解您要做什么，提供的示例显示了没有数据的空仪表板。首先，我认为
outputplot1
前面应该是
output
，所以
output$outputplot1=renderPlot（{}）
，所以当我单击侧栏中的选项卡时，仪表板主体只有占位符，我希望看到它们发生变化。。但这并没有发生