Shiny中可否使用updateNumericInput将输入控件值恢复为初始值

完全可以，你当前给出的实现方案本身就可以正常运行。

你目前把初始值定义为全局变量的写法，在本地单人使用场景下没有问题。如果后续需要部署为多用户可用的Shiny应用，全局变量会被所有会话共享，存在变量污染风险，你可以调整为将初始值封装在server内部，优化后的参考代码如下：

library(shiny)
ui <- shiny::fluidPage(
  titlePanel("正态分布直方图"),
  sidebarLayout(
    sidebarPanel(
      sliderInput(inputId = "n", label = "样本数量", min = 0, max = 1000, value = 100),
      numericInput(inputId = "m", label = "均值", value = 0),
      numericInput(inputId = "sd", label = "标准差", value = 1),
      actionButton(inputId = "reset", label = "重置")
    ),
    mainPanel(plotOutput(outputId = "hist"))
  )
)

server <- function(input, output, session) {
  # 初始值定义在server内部，每个会话独立不共享
  initial_val <- list(
    mean = 0,
    sd = 1,
    num = 100
  )
  
  output$hist <- shiny::renderPlot(
    hist(rnorm(input$n, mean = input$m, sd = input$sd), 
         main = "自定义正态分布直方图", 
         xlab = "")
  )
  
  observeEvent(input$reset, {
    updateNumericInput(session, "m", value = initial_val$mean)
    updateNumericInput(session, "sd", value = initial_val$sd)
    updateSliderInput(session, "n", value = initial_val$num)
  })
}

shinyApp(ui = ui, server = server)

核心逻辑说明：

• 重置功能通过observeEvent()监听重置按钮的点击事件实现，触发时调用对应控件的更新函数赋值为预设初始值即可
• 除了numericInput之外，sliderInput、selectInput等绝大多数Shiny输入控件都有对应的update*系列函数，支持动态修改控件参数

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