計算總和，並將其粘貼爲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 +輸入$ 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}) 

})