R Shiny 使用按钮创建多个随机数并保存

我想创建一个生成随机数的按钮，并将所有随机数保存在我的服务器上，以便稍后评估该数据。

不幸的是，我无法生成包含所有随机数的向量。不知何故，for 循环不起作用。谢谢！

library(shiny)

ui <- fluidPage(
  actionButton("button", "Show")
)

server <- function(input,output) {
  eventReactive(input$button, {
    counter <- sample(1:10,1)
  })
}
shinyApp(server = server, ui = ui)

你不需要forR中循环生成随机数向量，随机数生成函数有很多，请查看here举一些例子。

这是示例代码：

library(shiny)

ui <- shinyUI(fluidPage(
  titlePanel("Random number generator"),
  sidebarLayout(
    sidebarPanel( 
      sliderInput("rangeSl", "Range", min = 0, 
        max = 100, value = c(40, 60)
      ),
      numericInput("num", "Quantity:", 20, min = 1, max = 100, width = "40%"),
      actionButton("generateBt", "Generate Numbers")
    ),
    mainPanel( 
      verbatimTextOutput("result")
    ) 
  )
))

server <- shinyServer(function(input, output) {
  output$result <- renderPrint({ 
    if (input$generateBt > 0 ) 
      isolate(
        floor(runif(input$num, min = input$rangeSl[1], max = input$rangeSl[2]))
      )
  })
})

shinyApp(ui = ui, server = server)