Shinyで特定のtabPanelを選択する方法

Question

シンプルなShinyアプリケーションで、特定のtabPanelを動的に選択しようとしています。次のようにアプリのスクリプトは次のとおりです。

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") ) ) ) 

ui.r 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"とタブパネル「ダウンロード&ビニング入力データ」を選択します。

ここからの例はR Shiny switch tabPanel when selectInput value changesです。

ただし、tabPanelは選択されていません。

Answer 1

あなたのUIにはtabsetPanel（これは2つのtabPanelの親である必要があります）がないという問題があります。現在はupdateTabsetPanelを使用していますが、ターゲットはnavbarPageです。

下記の解決策です。 navbarPageはidを必要とし、またserver.R selectedに余分なスペースがありました（ビニング間と

input` 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"), 
       id="ScoreDevApp" 
    ) 
) 
) 

server.R

ライブラリー：二つの問題がありましたコメントを

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