我在withSpinner中使用dashboardpage，但遇到以下问题：
我有两个不同的tabitems：
第一个对象有一个selectInput对象。
第二个具有取决于第一个的图。
加载微调器仅在第一次计算图时出现，因此，如果我返回首页并在返回到打印图页面时更改selectinput中的值，则微调器不会出现。 / p>
这里有个例子：
这里有个小例子：
ui <-dashboardPage（skin =“ black”， consoleHeader（title =“ ciao”，titleWidth = 460）， 仪表板 sidebarMenu（ menuItem（“ Dashboard”，tabName =“ Dashboard”，icon = icon（“ globe”，lib =“ glyphicon”））， menuItem（“ Plot”，tabName =“ plot”，icon = icon（“ th-list”，lib =“ glyphicon”）））））， dashboardBody（ tabItems（ tabItem（tabName =“ Dashboard”， selectInput（“ select”，“ select：”，选择= c（1：4），selected = 1））， tabItem（tabName =“ plot”， withSpinner（plotOutput（“ plot”））））））））
服务器<-功能（输入，输出）{
output $ plot <-renderPlot（{ p <-图（mtcars [as.numeric（input $ select），]） p }）
}
shinyApp（ui = ui，server = server）
有人可以帮我吗？
谢谢