如何在 Shiny 应用程序中访问/打印/跟踪当前选项卡选择？

我正在一个闪亮的应用程序中工作，我希望能够访问用户在会话中当前所在选项卡上的信息。

我有一个观察事件，用于侦听要单击的特定按钮。简而言之，我想存储/打印用户单击此按钮时所在的当前选项卡。单击此按钮后，选项卡将更改为带有 updateTabItems 的“帮助”，该 updateTabItems 将会话、inputId 和所选值作为参数。

# Observe event when someone clicks a button
observeEvent(input$help, {
  # if they are logged in
  if(USER$Logged == TRUE) {

     # current_tab <- ???
     shiny_session <<- session
    updateTabItems(session, "sidebar", selected = "help")
  }
})

由于该会议具有一定的价值，我尝试探索它。

> class(shiny_session)
[1] "ShinySession" "R6"

> names(shiny_session)
 [1] ".__enclos_env__"     "session"            
 [3] "groups"              "user"               
 [5] "singletons"          "request"            
 [7] "closed"              "downloads"          
 [9] "files"               "token"              
[11] "clientData"          "output"             
[13] "input"               "progressStack"      
[15] "clone"               "decrementBusyCount" 
[17] "incrementBusyCount"  "outputOptions"      
[19] "manageInputs"        "manageHiddenOutputs"
[21] "registerDataObj"     "registerDownload"   
[23] "fileUrl"             "saveFileUrl"        
[25] "handleRequest"       "@uploadEnd"         
[27] "@uploadInit"         "@uploadieFinish"    
[29] "reload"              "reactlog"           
[31] "onFlushed"           "onFlush"            
[33] "sendInputMessage"    "sendCustomMessage"  
[35] "dispatch"            "sendProgress"       
[37] "showProgress"        "flushOutput"        
[39] "defineOutput"        "setShowcase"        
[41] "isEnded"             "isClosed"           
[43] "wsClosed"            "close"              
[45] "unhandledError"      "onInputReceived"    
[47] "onEnded"             "onSessionEnded"     
[49] "ns"                  "makeScope"          
[51] "initialize"

我尝试探索闪亮会话的这些元素，它们大部分都是函数结构，在当前选项卡上找不到任何内容。

UpdateTabItems 似乎获取值并将它们发送到 sendInputMessage。

> updateTabItems
function (session, inputId, selected = NULL) 
{
    message <- dropNulls(list(value = selected))
    session$sendInputMessage(inputId, message)
}

这似乎是在闪亮的应用程序中执行的某种命令堆栈，因此我停止探索它。

> shiny_session$sendInputMessage
function (inputId, message) 
{
    data <- list(id = inputId, message = message)
    private$inputMessageQueue[[length(private$inputMessageQueue) + 
        1]] <- data
}

关于如何在给定时间点访问变量中的当前选项卡信息有什么建议吗？

Thanks.

由于您还没有提供最小可重复示例 https://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example，我必须做出一些猜测才能生成适当的示例 - 但这很好:)看来您正在使用shinydashboard在应用程序中你有一个sidebarMenu至少有两个选项卡。

我希望能够访问用户在会话中当前所在选项卡上的信息。

你可以给sidebarMenu an ID, say, tabs然后您可以通过以下方式访问当前选项卡上的信息input$tabs.

让我们看一下下面的一个例子，它突出了这两方面

首先，我们“颁奖”sidebarMenu具有独特的ID

sidebarMenu(id = "tabs", 
      menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
      menuItem("Help", tabName = "help", icon = icon("h-square"))
    )

然后在服务器端监视它

observe({
    print(input$tabs)
  })

完整示例：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Example"),
  dashboardSidebar(
    sidebarMenu(id = "tabs", # note the id
      menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
      menuItem("Help", tabName = "help", icon = icon("h-square"))
    ),
    br(),
    # Teleporting button
    actionButton("teleportation", "Teleport to HELP", icon = icon("h-square"))
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "dashboard",
              h2("Dashboard tab content")
      ),
      tabItem(tabName = "help",
              h2("Help tab content")
      )
    )
  )
)

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

  # prints acutall tab
  observe({
    print(input$tabs)
  })

  observeEvent(input$teleportation, {
    # if (USER$Logged == TRUE) {
    if (input$tabs != "help") { 
      # it requires an ID of sidebarMenu (in this case)
      updateTabItems(session, inputId = "tabs", selected = "help") 
    }
    #}
  })
}

shinyApp(ui, server)