如何在带有闪亮按钮R的导航栏选项卡之间切换

问题描述

我需要用户单击一个按钮，然后被带到navbarPage的另一个tabPanel。这里有一个简单的应用程序，可以在其中实现这一点。如何实现此目标？

ui <- shinyUI(
 navbarPage('Test App',
  tabPanel('Page 1',
   p('This is the first tab'), br(),
   actionButton('jumpToP2', 'Jump to Second Tab')
  ),

  tabPanel('Page 2',
   p('This is the second tab'),
   actionButton('jumpToP1', 'Jump to First Tab')
  )
 )
)

server <- shinyServer(function(input, output){
  observeEvent(input$jumpToP2,{
    ## Switch active tab to 'Page 2'
  })

  observeEvent(input$jumpToP1,{
    ## Switch active tab to 'Page 1'
  })
})

shinyApp(ui, server)

推荐答案

您可以使用updateTabsetPanel在不同的tabPanel之间切换，请参阅https://shiny.rstudio.com/reference/shiny/latest/updateTabsetPanel.html中的文档和示例代码。下面的代码应该可以满足您的要求。

ui <- navbarPage('Test App',id = "inTabset",
                 tabPanel(title = "Panel 1", value = "panel1",
                          actionButton('jumpToP2', 'Jump to Second Tab')),
                 tabPanel(title = "Panel 2", value = "panel2",
                          actionButton('jumpToP1', 'Jump to First Tab'))
        )

server <- function(input, output, session) {
    observeEvent(input$jumpToP2, {
        updateTabsetPanel(session, "inTabset",
                          selected = "panel2")
    })

    observeEvent(input$jumpToP1, {
        updateTabsetPanel(session, "inTabset",
                          selected = "panel1")
    })

}

shinyApp(ui, server)

这篇关于如何在带有闪亮按钮R的导航栏选项卡之间切换的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！