Wie benutzt man tabPanel als Eingabe in R Shiny?

Question

Ist es möglich, eine Aktion auszuführen, wenn der Benutzer auf eine bestimmte tabPanel klickt?

Zum Beispiel, wenn der Benutzer auf tabPanel("A", ...) klickt, dann ein Popup anzeigen, das You are viewing tab "A" sagt.

Answer 1

tabsetPanel() wird den Wert zurückgeben, der dem aktiven tabPanel() zugewiesen ist. Wenn Sie gerade einen anderen Ausgang aktualisieren wollen könnten Sie so etwas tun:

ui.R

library(shiny)  

shinyUI(basicPage( 

    textOutput("text"), 
     tabsetPanel(id = "tabs", 
      tabPanel("Tab A", value = "A", "This is Tab A content"), 
      tabPanel("Tab B", value = "B", "Here's some content for tab B.") 
) 

)) 

server.R

library(shiny) 

shinyServer(function(input, output) { 

    output$text <- renderText({paste0("You are viewing tab \"", input$tabs, "\"")}) 

}) 

aber etwas kompliziert wie ein Pop-up zu schaffen wahrscheinlich erfordern würde Erstellen eines Beobachters und einige zusätzliche benutzerdefinierte Codierung ...

Answer 2

Wenn Sie glänzende Dashboard verwenden, wird input$tabBox_id den Namen der aktiven Registerkarte suchen. Siehe hier: https://rstudio.github.io/shinydashboard/structure.html#tabbox