R Shiny mehrere Zufallszahlen mit der Taste erstellen und speichern

Question

Ich möchte eine Schaltfläche erstellen, die eine Zufallszahl generiert und alle Zufallszahlen auf meinem Server speichern, die ich später auswerten kann.

Leider kann ich keinen Vektor mit allen Zufallszahlen generieren. Irgendwie funktioniert eine for-Schleife nicht. Vielen Dank!

library(shiny) 

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

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

Answer 1

Sie brauchen keine for Schleife in R einen Vektor von Zufallszahlen zu erzeugen, gibt es viele Funktionen für die Erzeugung von Zufallszahlen, bitte here für einige Beispiele überprüfen.

Hier ist ein Beispielcode:

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)