В приведенном ниже коде показан пользовательский интерфейс с двумя вкладками, каждая из которых содержит одну и ту же панель флажков. Я хотел бы, чтобы одна панель обновлялась, если другая обновляется, и наоборот. На сервере используется функция наблюдения, но по какой-то причине она только обновляет checkBoxGroup на вкладке 2, если изменяется вкладка 1, но не наоборот. У кого-нибудь есть идеи, как это решить?
library(shiny)
ui <- shinyUI(
navbarPage("tabs",
tabPanel("tab1",
fluidPage(
sidebarPanel(
checkboxGroupInput("variable", "variable:",list("1" = "1","2" = "2","3" = "3","4" = "4","5" = "5"), selected = list("1"="1"))
)
)),
tabPanel("tab2",
fluidPage(
sidebarPanel(
checkboxGroupInput("variable", "variable:",list("1" = "1","2" = "2","3" = "3","4" = "4","5" = "5"), selected = list("1"="1"))
)
)
)
)
)
server <- function(input, output, session) {
observe({
updateCheckboxGroupInput("variable","variable:",list("1" = "1","2" = "2","3" = "3","4" = "4","5" = "5"),selected=input$variable)
})
}
shinyApp(ui = ui, server = server)