Активная вкладка для выбора переключателя в Shiny - PullRequest
Новая
       33

Активная вкладка для выбора переключателя в Shiny

0 голосов
/ 25 апреля 2020

У меня есть следующий блестящий код приложения, в котором пользователь может выбирать радиокнопки, а затем активируется соответствующая панель вкладок.

У меня вопрос, как сделать обратное, т. Е. Если пользователь выбирает панель вкладок Как активировать соответствующий переключатель.

Ниже приведен воспроизводимый пример.

Если вы выберете, например, радиокнопку Tab 2, активируется Tab 2

Если вы затем выберете Tab 3, тогда радиокнопка Tab 2 остается выбранным, и я хотел бы обновить до переключателя Tab 3

Спасибо 

library(shiny)

radio_button_choices = list("Tab 1" = 1, "Tab 2" = 2, "Tab 3" = 3)

ui <- fluidPage(

sidebarLayout(
    sidebarPanel(
      radioButtons(inputId = "radio_button", label = h5("Select tab"), choices = radio_button_choices)),

    mainPanel(
      tabsetPanel(id = "tab",

                  tabPanel("Tab1", value = "panel1", htmlOutput("text1")),
                  tabPanel("Tab2", value = "panel2", htmlOutput("text2")),
                  tabPanel("Tab3", value = "panel3", htmlOutput("text3"))
      )
    ) 
  )
)

server <- function(input, output, session) {

  observeEvent(input$radio_button, {
    updateTabsetPanel(session, "tab",
                      selected = paste0("panel", input$radio_button)
    )
  })

  output$text1 = renderUI({
    str1 = "This is tab 1"
    HTML(paste(str1)) 
  })

  output$text2 = renderUI({
    str1 = "This is tab 2"
    HTML(paste(str1)) 
  })

  output$text3 = renderUI({
    str1 = "This is tab 3"
    HTML(paste(str1)) 
  })

}

# Run the application 
shinyApp(ui = ui, server = server)

1 Ответ

1 голос
/ 25 апреля 2020

Вы можете сделать что-то похожее с updateRadioButtons.

Вам также может понравиться похожий вектор для ваших tabPanel вариантов выбора. 

library(shiny)

radio_button_choices = list("Tab 1" = 1, "Tab 2" = 2, "Tab 3" = 3)
panel_choices = list("Panel 1" = 1, "Panel 2" = 2, "Panel 3" = 3)

ui <- fluidPage(

  sidebarLayout(
    sidebarPanel(
      radioButtons(inputId = "radio_button", label = h5("Select tab"), choices = radio_button_choices)),

    mainPanel(
      tabsetPanel(id = "tab",

                  tabPanel(names(panel_choices)[1], value = panel_choices[[1]], htmlOutput("text1")),
                  tabPanel(names(panel_choices)[2], value = panel_choices[[2]], htmlOutput("text2")),
                  tabPanel(names(panel_choices)[3], value = panel_choices[[3]], htmlOutput("text3"))
      )
    ) 
  )
)

server <- function(input, output, session) {

  observeEvent(input$radio_button, {
    updateTabsetPanel(session, "tab", selected = input$radio_button)
  })

  output$text1 = renderUI({
    str1 = "This is tab 1"
    HTML(paste(str1)) 
  })

  output$text2 = renderUI({
    str1 = "This is tab 2"
    HTML(paste(str1)) 
  })

  output$text3 = renderUI({
    str1 = "This is tab 3"
    HTML(paste(str1)) 
  })

  observeEvent(input$tab, {
    updateRadioButtons(session, "radio_button", selected = input$tab)
  })

}

# Run the application 
shinyApp(ui = ui, server = server)
...