如何避免Shiny动态UI输入值随主输入变更而重置？

你制作的Shiny应用可根据Number of input动态生成多组numericInput，但当前主输入值变化时，所有动态输入的内容都会被重置。这是因为每次主输入变更时，服务器会重新创建这些输入组件，默认使用初始值而非用户已输入的值。下面提供一种可行的解决方法，让动态输入的值在主输入变化时得以保留。

原代码 #

library(shiny)

ui <- shiny::fluidPage(
    shiny::titlePanel("Dynamic UI"),
    shiny::sidebarLayout(
        shiny::sidebarPanel(width = 2,
        shiny::numericInput("num", "Number of input", value=1, min=1, max=7),
        htmltools::hr(style = "border-top: 5px dashed skyblue"),
        shiny::uiOutput("out")
        ),
        shiny::mainPanel()
    )
)

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

    output$out <- shiny::renderUI({
          lapply(1:input$num, function(i) {
            htmltools::div(
                htmltools::tags$h4(paste0("Input group: ",i)),
                shiny::numericInput(paste0("size", i),
                    label = "size",
                    value = 3, min = 1, max = 8
                ),
                shiny::numericInput(paste0("inc", i),
                    label = "incidence",
                    value = 1, min = 1, max = 8
                ),
                htmltools::hr(style = "border-top: 2px dashed skyblue")
            )
        })

    })

}

shiny::shinyApp(ui, server)

解决思路 #

核心是实时保存用户输入的动态值，在重新生成输入组件时，优先使用已保存的值而非固定初始值：

• 用reactiveValues创建一个响应式容器，专门存储所有动态输入的当前值
• 监听每个动态输入的变化，实时更新容器中的对应值
• 生成动态输入组件时，从容器中读取已有值，没有则使用默认初始值

修改后的代码 #

library(shiny)
# 定义空值判断函数，若左侧为NULL则返回右侧值
`%||%` <- function(x, y) if (is.null(x)) y else x

ui <- shiny::fluidPage(
    shiny::titlePanel("Dynamic UI"),
    shiny::sidebarLayout(
        shiny::sidebarPanel(width = 2,
        shiny::numericInput("num", "Number of input", value=1, min=1, max=7),
        htmltools::hr(style = "border-top: 5px dashed skyblue"),
        shiny::uiOutput("out")
        ),
        shiny::mainPanel()
    )
)

server <- function(input, output, session) {
    # 创建响应式容器存储动态输入值
    input_values <- reactiveValues()

    # 监听所有动态输入的变化，实时更新存储的值
    observe({
        lapply(1:input$num, function(i) {
            # 更新size输入的值
            input_values[[paste0("size", i)]] <- input[[paste0("size", i)]]
            # 更新incidence输入的值
            input_values[[paste0("inc", i)]] <- input[[paste0("inc", i)]]
        })
    })

    output$out <- shiny::renderUI({
          lapply(1:input$num, function(i) {
            htmltools::div(
                htmltools::tags$h4(paste0("Input group: ",i)),
                shiny::numericInput(paste0("size", i),
                    label = "size",
                    # 优先使用已保存的值，无则用默认值3
                    value = input_values[[paste0("size", i)]] %||% 3, 
                    min = 1, max = 8
                ),
                shiny::numericInput(paste0("inc", i),
                    label = "incidence",
                    # 优先使用已保存的值，无则用默认值1
                    value = input_values[[paste0("inc", i)]] %||% 1, 
                    min = 1, max = 8
                ),
                htmltools::hr(style = "border-top: 2px dashed skyblue")
            )
        })

    })

}

shiny::shinyApp(ui, server)

代码说明 #

1. %||%函数：简化空值判断逻辑，当存储的输入值还未被设置（即第一次创建该组输入时），自动使用默认初始值。
2. input_values：响应式容器，实时记录用户对每一组动态输入的修改，确保数据不会丢失。
3. observe监听：每当主输入num变化或动态输入值变化时，都会同步更新input_values中的对应值，保证存储的是最新状态。
4. 动态输入组件的value参数：不再固定使用初始值，而是优先从input_values中读取已有值，实现值的持久保留。

内容的提问来源于stack exchange，提问作者Yousuf Ali