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

`

如何使用Observations和Observations1中的输入并将值粘贴到Sum中。

我试过，在服务器中输入$ 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})

})

计算两个选项卡的输入总和并将其粘贴到textInput框中 - Shiny R.

1 个答案: