2

これはおそらく一般的な質問であり、明示的に説明するために最善を尽くします. R Shiny とui.Rファイルでは、次radioButtonsの 2 つの方法のいずれかを選択します。

  radioButtons("Methods", strong("Choose a Method:"),
                 choices = list("method_1" = "m1",
                                "method_2" = "m2"),
                 selected="method_1"),

  selectInput("method_2_ID", strong("Choose an ID (method_2"),
                topIDs)

  mainPanel(
    tabsetPanel(
      tabPanel(title = "method_1_tab1", 
               plotOutput("plots"), 
      tabPanel(title = "method_2_output1", 
               tableOutput("m2_output1")),
      tabPanel(title = "method_2_output2", 
               verbatimTextOutput("m2_output2")))
    ))

method_2 でわかるように、2 つの異なるタブを使用して異なる結果を表示する予定です。つまりm2_output1、 とm2_output2です。私のserver.Rファイルでは、次を使用します。

if (input$Methods == "method_2") {

  # m2_output1
  updateTabsetPanel(session, "method_2_output1", selected="panel2")

  # drop-down menu
  SelectedID = reactive(function(){
    input$method_2_ID
  })

  # m2_output1
  output$m2_output1 = renderTable({
    m2[m2$ID == input$method_2_ID, ]
  })

  # m2_output2
  updateTabsetPanel(session, "method_2_output2", selected="panel3")

  [...]
  output$m2_output2 = renderPrint({
     [...]
    }
  })

ただし、method_2_output1ドロップダウン メニューから ID をクリックすると、タブに対してのみ機能し、タブをクリックしてmethod_2_ouptut2も何も表示されません (表示されるはずだverbatimTextOutput("m2_output2)"と思います)。ui.Rまたはserver.Rファイルに何か問題がありますか?

4

1 に答える 1

6

タブを希望どおりに動作させるには、かなりの数の変更が必要でした。

大きな変更点のいくつかは次のとおりです。

  1. 参照できるように、引数を使用してtabsetPanelとを作成する必要があります。tabPanelsid

  2. が機能するにはupdateTabsetPanel、次を使用して、これらのコマンドをリアクティブ オブザーバー内にラップする必要があります。

    observe ( {
 #updateTabsetPanel here
})

  3. sessions引数を指定して ShinyServer を呼び出す

他にもいくつか変更を加えました。以下は、完全に機能するフレームワークです。方法 1 を選択すると、Tab1 が選択されます。メソッド 2 を選択すると、選択したメソッド ID に応じて、2 番目と 3 番目のタブが切り替わります。 ここに画像の説明を入力

UI.R

library("shiny")

shinyUI(pageWithSidebar(    
  headerPanel("Tab Switch Demo"),
  sidebarPanel(
         h4('Switch Tabs Based on Methods'),
             radioButtons(inputId="method", label="Choose a Method",
                          choices = list("method_1",
                                         "method_2")),
         conditionalPanel("input.method== 'method_2' ",                          
                          selectInput("method_2_ID", strong("Choose an ID for method 2"),
                                      choices = list("method_2_1",
                                                     "method_2_2"))
                          )       

    ),
  mainPanel(
          tabsetPanel(id ="methodtabs",
            tabPanel(title = "First Method Plot", value="panel1",
                     plotOutput("method_1_tab1")),
            tabPanel(title = "method_2_output1", value="panel2",
                     tableOutput("m2_output1")),
            tabPanel(title = "method_2_output2", value="panel3",
                     verbatimTextOutput("m2_output2"))
            )
      )  
))

サーバー.R

library('shiny')    
shinyServer(function(input, output, session) {
  output$method_1_tab1 = renderPlot({
    plot(cars)
  })
  output$m2_output1 = renderText({
    "First Tab for Method 2, ID=1"
  })
  output$m2_output2 = renderText({
    "Second Tab for Method 2, ID=2"
  })

  observe({
    if (input$method == "method_1") {    
      updateTabsetPanel(session, inputId="methodtabs", selected="panel1")
    }      
    else if (input$method_2_ID == "method_2_1") {    
      updateTabsetPanel(session, inputId="methodtabs", selected="panel2")
    }      
    else if (input$method_2_ID == "method_2_2") {    
      updateTabsetPanel(session, inputId="methodtabs", selected="panel3")
    }      
  })

上記のコードを出発点として使用し、変更を開始します。

それがあなたの助けになることを願っています。

于 2013-07-30T21:15:42.083 に答える