berechnen Summe der Eingänge von zwei Registerkarten und fügen Sie ihn in textinput Box - Glänzendes 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) 
} 

`

Wie verwende ich die Eingänge von Beobachtungen und Observations1 und den Wert in der Summe einfügen.

Ich habe versucht, Eingabe $ Obs + Eingabe $ Obs1 im Server und es hat nicht funktioniert.

Danke!

Answer 1

Sie müssen den Unterschied zwischen Ihren Eingaben und Ihren Ausgaben verstehen. Sie sollten die ersten 30-45 Minuten von this video. sehen Aber ich glaube, dass das unten tun wird, was Sie gefragt haben.

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

})