R 使用“actionButton”刷新闪亮应用程序中的输入值`

我正在研究一个闪亮的应用程序来探索线性回归中的平方和（）。此应用程序有三个幻灯片输入，因此用户可以选择：（i）回归斜率；（ii）样本量和（iii）标准偏差。通过这些输入，应用程序生成一个原始数据集来绘制一些图形。这与

被动

功能配合良好。一个参数中的任何更改都将生成新数据。我的问题是，我想包括一个按钮来“刷新”所有值，实际上是为了重新运行生成这些参数的函数

所以我的问题是如何将其包含在服务器中

我知道我必须在ui中包含按钮：

actionButton(inputId = "refresh", label = "Refresh" , 
             icon = icon("fa fa-refresh"))
)

但是我不知道如何使用这个按钮来重新运行生成数据的反应函数。这是在服务器中生成数据的代码：

### Saving data:
Rawdata <- reactive({
  slope <- input$slope
  SD <- input$SD
  sample <- input$sample
  x <- round(1:sample + rnorm(n = sample, mean = 1, sd = 1), digits = 2)
  y <- round(slope * (x) + rnorm(n = sample, mean = 3, sd = SD ), digits     = 2)
  mod <- lm(y ~ x, data.frame(y,x))
  ypred <- predict(mod)
  Rawdata <- data.frame(y, x, ypred)
})

###保存数据：
Rawdata您可以使用其他输入变量，并使
actionButton
仅依赖于反应式表达式：

library(shiny)

shinyApp(
  server = function(input, output, session) {
      rawdata <- reactive({
        # Make action button dependency
        input$refresh 
        # but isolate input$sample
        isolate(rnorm(input$sample))
      })

      output$mean <- renderText({ mean(rawdata()) })
  },
  ui = fluidPage(
    actionButton(inputId = "refresh",
      label = "Refresh", icon = icon("fa fa-refresh")),
    sliderInput(inputId = "sample",
      label = "Sample size",
      value = 50, min = 10, max = 100),
    textOutput("mean")
  )
)

库（闪亮）
shinyApp(
服务器=功能（输入、输出、会话）{
rawdata将您的数据放入
反应值
，然后使用
观察
er响应操作按钮并更新反应值。非常完美！现在工作非常顺利！