계산이 탭에서 입력의 합에서 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}) 

})