Toggle-Option in glänzend

Question

In meinem glänzenden Armaturenbrett, habe ich ein Optionsfeld wie folgt,

radioButtons("view", "View Type", c("Count", "Percent"), selected = "Count") 

nun auf der Grundlage dieser Auswahl Radiobutton ich meine Ausgangs Registerkarten wollen auf die Auswahl umgeschaltet basieren. Wenn ich "Count" wähle, sollte die "Count" Ansicht angezeigt werden und die "Percent" Ansicht sollte deaktiviert sein.

Unten ist der Code für meine Haupt-Registerkarte

mainPanel(width = 9, 
    tabsetPanel("tab", 
    tabPanel(strong("Count of Objects"), tableOutput("mon")), 
    tabPanel(strong("% of Objects"), tableOutput("mon_per"))) 

Jede Hilfe sehr geschätzt wird.

Answer 1

Sie können die Funktion updateTabsetPanel() verwenden. Dies ist der Code:

ui.R

library(shiny) 


    shinyUI(pageWithSidebar(


      headerPanel("Tabsets"), 
      sidebarPanel(
        radioButtons("view", "View Type:", 
           c("Count", "Percent"), 
           selected = "Count") 

      ), 
      mainPanel(
        tabsetPanel(id = "tab", 
           tabPanel(title = "Count of objects", 
             value = "countsOfObjects", 
             tableOutput("mon")), 
           tabPanel(title = "% of Objects", 
             value = "percentOfObjects", 
             tableOutput("mon_per"))) 

        ) 
      ) 
    ) 

server.R

library(shiny) 

    shinyServer(function(input, output, session) { 
      observeEvent(input$view, { 
        if (input$view == "Count") { 
          updateTabsetPanel(session, "tab", 
               selected = "countsOfObjects" 
          )  
        } else { 
          updateTabsetPanel(session, "tab", 
               selected = "percentOfObjects" 
          )       
        } 

      }) 

    })