Come usare tabPanel come input in R Shiny?

Question

È possibile eseguire un'azione se l'utente fa clic su un particolare tabPanel?

Ad esempio, se l'utente fa clic su tabPanel("A", ...), visualizza un popup che indica You are viewing tab "A".

Answer 1

tabsetPanel() restituirà il valore assegnato allo tabPanel() attivo. Se si desidera solo per aggiornare un'altra uscita si potrebbe fare qualcosa di simile:

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, "\"")}) 

}) 

ma qualcosa di più complicato come la creazione di un pop-up richiederebbe probabilmente creazione di un osservatore e qualche ulteriore codifica personalizzata ...

Answer 2

Se si utilizza la dashboard lucida, input$tabBox_id individuerà il nome della scheda attiva. Fare riferimento a: https://rstudio.github.io/shinydashboard/structure.html#tabbox