闪亮的“加载”数据到 numericInput-field

Question

我是这个论坛和 Shiny 的新手，所以我会尽力提出我的问题，但请随时提出我忘记提供的任何其他信息或提供反馈以在未来改进我的问题。

我写了一个闪亮的小程序，其中我使用两个numericInput 函数来设置一个门（基本上是上下边界）。现在我想存储这些门以将它们用于其他数据集或其他选项卡。保存它们似乎很容易，但我无法将它们加载回numericInput 字段。

我通过使用 if 操作绕过了 numericInput 字段，因此我的程序使用全局门而不是 numericInput 值（也可以通过复选框选择）但真正的目标是将数据放回 numeriInput 字段，以便能够对每个数据集的全局门进行小幅调整，而无需在字段中再次键入门。

我不知道这是否可能，但如果是的话，我希望这里有人知道答案。

我创建了一小段代码作为示例，它最终应该是什么样子，但不知道如何使“获取全局”按钮起作用。

server <- function(input, output){
  observe({
    if (input$setglobal==0){
      return()
    }

    isolate({
      global <- input$input1
      output$displayglobal <- renderText(global)
      })
    })
}

ui <- fluidPage(
  column(6, numericInput("input1", label="Lower Gate", value=0, step = 1),
  actionButton("setglobal", "Set as Global"), actionButton("getglobal", "Get Global")),
  column(6, h3("Global Value: "), textOutput("displayglobal"))
  )


shinyApp(ui = ui, server = server)

Answer 1

reactiveValues() 是存储数据的好方法，您需要在闪亮的服务器中的其他地方使用这些数据。它的功能类似于列表，但对值的更改会触发基于它们的反应性。这是一个简短的例子：

ui <- fluidPage(
  tabsetPanel(
    tabPanel("input",
             numericInput(inputId = 'input1', label = "Number", value = 0)
             ),
    tabPanel("output",
             textOutput("displayGlobal")
             )
  )
)

server <- function(input, output){

  vals <- reactiveValues(number = NULL)

  observeEvent(eventExpr = input$input1,
               handlerExpr = {
                 vals$number <- input$input1
               })

  output$displayGlobal <- renderText(paste0("Your Number is: ", vals$number))
}

shinyApp(ui = ui, server = server)