WithSpinner не перезагружается с Dashboardpage

Question

Я использую withSpinner с dashboardpage, и у меня возникла следующая проблема:

У меня есть два разных tabitems:

• У первого есть selectInput объект.

• Второй имеет сюжет в зависимости от первого.

Загрузочный счетчик появляется только при первом расчете графика, поэтому, если я вернусь на первую страницу и изменит значение в selectinput при возврате на страницу графика, счетчик не появится.

Вот пример:

Вот небольшой пример:

ui <- dashboardPage (skin = "black", dashboardHeader (title = "ciao", titleWidth = 460), dashboardSidebar ( sidebarMenu ( menuItem ("Dashboard", tabName = "Dashboard", icon = icon ("globe", lib = "glyphicon")), menuItem ("Plot", tabName = "plot", icon = icon ("th-list", lib = "glyphicon")))), dashboardBody ( tabItems ( TabItem (TABNAME = "Панель управления", selectInput («select», «select:», choices = c (1: 4), selected = 1)), TabItem (TABNAME = "участок", withSpinner (plotOutput ( "участок")))))) </p>

сервер <- функция (вход, выход) {</p>

output $ plot <- renderPlot ({ p <- plot (mtcars [as.numeric (input $ select),]) п }) </p>

}

inyApp (интерфейс = сервер, сервер = сервер)

Может кто-нибудь мне помочь?

Спасибо