R 重定向到按钮处于闪亮状态的选项卡

编辑：在internet上找到UpdateTablePanel的代码

我想在我闪亮的应用程序中实现重定向按钮，但我以前从未这样做过，也没有在互联网/论坛上找到任何可以引导我走向正确方向的信息

基本上，我想做的是： 我有一个“加载数据”选项卡和一个“查看数据”选项卡，在“加载数据”选项卡上，用户可以选择要上传的数据，然后按“上传”按钮上传。单击此按钮时，我希望应用程序将用户重定向到“查看数据”选项卡，其中显示数据的内容和一些其他信息

下面是actionButton所在的UI.R代码（调用参数）：

以下是选项卡所在的我的UI.R代码：

tabSubMenuViewData <-
  tabItem("subMenuViewData", 
          conditionalPanel(
            condition = ("input.load_file > 0"),
            tabsetPanel(type = "tab", id = "tabView",             
                tabPanel("View",DT::dataTableOutput("contents_view")),
                tabPanel("Summary", verbatimTextOutput('XSummary')),
                tabPanel("Structure", verbatimTextOutput('XStructure')),
                tabPanel("Describe", verbatimTextOutput("XDescribe")),
                tabPanel("Pivot",rpivotTableOutput("pivot_2"))     
              )                  

          )
  )

任何正确方向的建议都是欢迎的

---

基于猪排的输入，亲切问候我的问题的解决方案：

我的TabSubNumViewData引用了下面的UI.R代码，在这里我设法找到了所需的参数

UI.R代码：

dashboardSidebar <- dashboardSidebar(
sidebarMenu(id = "tabs",
  menuItem(tabName = "menuIntro", text = "Intro", icon = icon("sign-in")),
  menuItem(tabName = "menuManageData", text = "Manage data", icon =  icon("share-alt"),
           menuSubItem(tabName = "subMenuLoadData", text = "Load data", icon = icon("cloud-upload")),
           menuSubItem(tabName = "subMenuTransformData", text = "Transform data", icon = icon("pencil")),
           menuSubItem(tabName = "subMenuViewData", text = "View data", icon = icon("search")),
           menuSubItem(tabName = "subMenuSaveData", text = "Save data", icon = icon("cloud-download")), 
           menuSubItem(tabName = "subMenuRemoveData", text = "Remove data", icon = icon("remove")),
           menuSubItem(tabName = "subMenuHistoryData", text = "History", icon = icon("calendar")) 
  ),

---

看看这里谢谢你的建议，但对我来说似乎不起作用。我当时得到了完全相同的代码，但是使用了tabsetPanel而不是tabItem。另外，非常感谢您的输入猪排，我通过查看您给出的示例解决了我的问题！你能提供解决方案让其他用户参考吗

observe({
  if (input$load_file > 0)
  updateTabsetPanel(session, "tabView ",selected = "View")
})

dashboardSidebar <- dashboardSidebar(
sidebarMenu(id = "tabs",
  menuItem(tabName = "menuIntro", text = "Intro", icon = icon("sign-in")),
  menuItem(tabName = "menuManageData", text = "Manage data", icon =  icon("share-alt"),
           menuSubItem(tabName = "subMenuLoadData", text = "Load data", icon = icon("cloud-upload")),
           menuSubItem(tabName = "subMenuTransformData", text = "Transform data", icon = icon("pencil")),
           menuSubItem(tabName = "subMenuViewData", text = "View data", icon = icon("search")),
           menuSubItem(tabName = "subMenuSaveData", text = "Save data", icon = icon("cloud-download")), 
           menuSubItem(tabName = "subMenuRemoveData", text = "Remove data", icon = icon("remove")),
           menuSubItem(tabName = "subMenuHistoryData", text = "History", icon = icon("calendar")) 
  ),

observeEvent(input$load_file, {
  updateTabItems(session, "tabs", "subMenuViewData")
  }
)