r - 如何在 Shiny 中选择特定的 tabPanel

Question

我正在尝试在简单的 Shiny 应用程序中动态选择特定的 tabPanel。 app的脚本如下:

ui.r

library(shiny)
shinyUI(fluidPage(

  titlePanel("SCORE CARD DEVELOPMENT PLATFORM"),
    navbarPage("ScoreDevApp",
         tabPanel("Settings",
                  fluidRow(column(2,
                                  actionButton("goButton_service", "Load   saved parameters",width=200)
                                  )
                          )
         ),
         tabPanel("Download & Binning input data")
        )
)
)

server.r :

library(shiny)

shinyServer(function(input, output, session) {
  #load saved parameters 
  observeEvent(input$goButton_service, {
    updateTabsetPanel(session, "ScoreDevApp", selected = "Download & Binning  input data")
 })  
})  

这个想法是按下按钮 "goButton_service"并选择 tabPanel “下载和合并输入数据” .

我使用了这里的示例 R Shiny switch tabPanel when selectInput value changes .

但是没有选择 tabPanel。我将非常感谢您的帮助:-)

Answer 1

问题是你没有 tabsetPanel在您的 UI 中(应该是两个 tabPanel 的父级)。现在您正在使用 updateTabsetPanel ，但目标是 navbarPage .

下面的工作解决方案。有两个问题:navbarPage 需要一个 id , 而且 server.R 中还有一个额外的空间。R selected (在分箱和输入之间

用户界面

library(shiny)
shinyUI(fluidPage(

    titlePanel("SCORE CARD DEVELOPMENT PLATFORM"),
    navbarPage("ScoreDevApp",
               tabPanel("Settings",
                        fluidRow(column(2,
                                        actionButton("goButton_service", "Load   saved parameters",width=200)
                        )
                        )
               ),
               tabPanel("Download & Binning input data"),
               id="ScoreDevApp"
    )
)
)

服务器

图书馆( Shiny )

shinyServer(function(input, output, session) {
    #load saved parameters 
    observeEvent(input$goButton_service, {
        updateNavbarPage(session, "ScoreDevApp", selected = "Download & Binning input data")
    })  
})