使用 Shiny 中的按钮重定向到选项卡答案

【问题标题】：Redirecting to a tab with a button in Shiny使用 Shiny 中的按钮重定向到选项卡
【发布时间】：2015-10-08 19:32:04
【问题描述】：

编辑：在 Internet 上找到 updateTabsetPanel 的代码

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

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

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

wellPanel( 
           actionButton(inputId = "load_file", label = "Upload", icon = con("cloud-upload"))
        )

这是标签所在的 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"))     
              )                  

          )
  )

在我的 server.R 代码上，我正在朝这个方向思考：

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

欢迎任何正确方向的建议。

亲切的问候

【问题讨论】：

看看这里stackoverflow.com/questions/32971921/…
感谢您的建议，但在我的情况下似乎不起作用。我现在得到了完全相同的代码，但是使用 tabsetPanel 而不是 tabItem。
也看看这个stackoverflow.com/questions/25455154/…
非常感谢您的意见猪排，通过查看您提供的示例，我设法解决了我的问题！
能否提供解决方案以便其他用户参考

标签： r redirect shiny

【解决方案1】：

根据 Pork Chop 的意见解决我的问题：

我的 tabSubMenuViewData 指的是以下 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")) 
  ),

Server.R 代码：

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

【讨论】：