Rシャイニー2つの入力を同じにする

Question

アクションボタンを押したときに何とか2つの入力を同じにしたい。 Shiny Dashboardにはいくつかのタブがあり、タブの中には繰り返しデータ入力があります。たとえば、タブ1にはAGEの入力があり、タブ2には同じ入力があります。年齢の値を入力して「実行」（アクションボタン）をクリックすると、自動的に他のタブの年齢は現在のタブの年齢と同じです。

私はシャイニーの使用に本当に新しいので、私は、反応性のコマンドを使用してのいくつかの試みをしたが、それが動作していない理由を私はよく分からない：

reactive( 
if(input$runbutton==0){ 
input$numeric1=input$numeric2 
}) 

このコードは効果がありません、それはエラーを返さない。

Answer 1

入力の値を変更するには、updateNumericInput()を使用する必要があります。また、observeEvent()を使用してボタンの押下を追跡する方が理にかなっています。ここで簡単なサンプルアプリケーション

ui <- fluidPage(
    numericInput("numeric1","in1",1), 
    numericInput("numeric2","in2",2), 
    actionButton("runbutton", "set equal") 
) 

server <- function(input, output, session) { 
    observeEvent( input$runbutton, { 
     updateNumericInput(session, "numeric1", value=input$numeric2) 
    }) 
} 


shinyApp(ui=ui, server=server)