Shiny App - 将输入条目保存为变量并在代码中使用它

Question

我正在开发 Shiny App，我需要将数字输入 ("num") 保存为变量并在 ifelse 语句中使用它。

例如，我尝试在服务器函数中执行myvalue <- input$num，但它不起作用。

我需要至少使用其他 4 或 5 个输入来执行此操作。

有人有想法吗？

Answer 1

选项 1：在任何你想使用 myvalue 的地方使用 input$num。这不是问题。

选项 2：使用reactive()。注意括号myvalue()，像调用函数一样调用它。 （这是一个函数）。

library(shiny)

ui <- fluidPage(
  numericInput("num", "Number", 0),
  textOutput("positive"),
  textOutput("odd")
)

server <- function(input, output, session) {

  # Option 1
  output$positive <- renderText({
    if (input$num >= 0) {
      "Positive number."
    } else {
      "Negative number."
    }
  })

  # Option 2
  myvalue <- reactive({
    input$num
  })

  output$odd <- renderText({
    if (myvalue() %% 1 != 0) {
      "Not an integer."
    } else if (myvalue() %% 2 == 0) {
      "Even number."
    } else {
      "Odd number."
    }
  })
}

shinyApp(ui, server)