Вычислить сумму входов из двух вкладок и вставить его в TextInput коробки - Shiny 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 и вставьте значение в Sum.

Я пробовал, вводил $ obs + input $ obs1 в сервер, и он не работал.

Спасибо!

Answer 1

Вам нужно понять разницу между входами и выходами. Вы должны смотреть первые 30-45 минут this video. Но я считаю, что ниже будет делать то, что вы просили.

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}) 

})