計算二つのタブからの入力の合計コンポーネントとTextInputボックスに貼り付けます - シャイニーR

Question

`if (interactive()) { 

ui <- fluidPage(
numericInput("obs", "Observations:", 10, min = 1, max = 100), 
numericInput("obs1", "Observations1:", 10, min = 1, max = 100), 
textInput("final", "Sum") 
) 
server <- function(input, output) { 

} 
shinyApp(ui, server) 
} 

`

はどのようにして観察し、Observations1からの入力を使用し、合計の値を貼り付けます。

私はサーバーに$ obs + input $ obs1を入力しようとしましたが、動作しませんでした。

ありがとうございます！

Answer 1

入力と出力の違いを理解する必要があります。 this video.の最初の30-45分を見るべきですが、私はあなたが尋ねたことを以下に行うと信じています。

ui.R

shinyUI(fluidPage(

    numericInput("obs", "Observations:", 10, min = 1, max = 100), 
    numericInput("obs1", "Observations1:", 10, min = 1, max = 100), 
    textOutput("sum") 
)) 

server.R

shinyServer(function(input, output) { 
    output$sum <- renderText({input$obs + input$obs1}) 

})