r - R Shiny - すべての入力に影響を与えるわけではない送信ボタンを強制する方法

Question

Shiny アプリケーションでの使用に関する問題に直面してsubmitButtonいます (これは、アプリケーション ユーザーから提供されたデータを使用して時間のかかるレンダリングが行われるためです)。また、some radioButtonswithを使用しconditionalPanelて、ユーザーがパラメーターを選択できる変数グループを定義します。添付の画像を参照してアイデアを得るか (ユーザーがリストの種類を選択し、リストの選択に基づいてconditionalPanel、ユーザーがパラメーターを選択している特定のリストが表示されます (動作中) )、または以下に示す再現可能な例を実行してください。 .

もちろん、パラメーターのみが出力のレンダリングに使用されている値であり、自動的にパラメーターのみsubmitButtonを渡すように強制したいと思います。問題は、要素にも影響を与え、目的の値を選択できなくなることです (値リストが切り替えられないため)。submitButtonradioButtons

質問:私の問題を解決するために、どのUI 要素を自動更新から停止するかを定義する方法はありますか? submitButton助けてくれてありがとう！

UI:

library(shiny)

shinyUI(pageWithSidebar(  

   headerPanel("Problem with submit button"),

   sidebarPanel(

     radioButtons("selectionway", "Choose list type", c(number='number', letter='letter')),

     conditionalPanel(
  condition = "input.selectionway == 'number'",
  selectInput("numberlist", "Choose NUMBER:", choices = c("11111", "22222", "33333"))
  ),    

     conditionalPanel(
  condition = "input.selectionway == 'letter'",
  selectInput("letterlist", "Choose LETTER:", choices = c("A", "B", "C"))
  ),          

    submitButton("submitButton") 

),

  mainPanel(
   verbatimTextOutput("list"),
   verbatimTextOutput("value")  
  )
))

サーバ：

library(shiny)

shinyServer(function(input, output) {

  selected.value <- reactive({
    if(input$selectionway=="letter"){
      return(input$letterlist)
    } else {
      return(input$numberlist)
    }    
  })

  output$list <- renderText({
    input$selectionway
  })

  output$value <- renderText({    
   selected.value()
  })

}))