withr

"Year" "MeldingsNr" "HF0105" "HF0208" "HF0305" "HF0502" "HF0601" "HF0707" "HF0806" "HF1005" "HF1101" "HF1107" "HF1305" "HF1406" "HF1502" "HF1504" "HF1608" "HF1701" "HF1702" "HF1801" "HF1903"
"1" "2011" 100 58 NA NA NA 19 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"2" "2011" 200 48 NA NA NA 16 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"3" "2011" 250 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"4" "2011" 400 3 NA NA NA 6 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"5" "2011" 401 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"6" "2011" 602 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"7" "2011" 700 137 NA NA NA 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"8" "2011" 750 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"9" "2012" 100 178 NA 40 NA 637 303 NA 98 NA 135 22 NA 39 1 56 NA NA 34 19

withr

shinyServer(function(input, output) {
  output$obs <- renderUI({
    sliderInput("obs", "Number of observations:", 
                min = 10000, max = 90000, 
                value = 50000, step = 10000)
  })
  output$distPlot <- renderPlot({
    if (!is.null(input$obs)) {
      dist <- NULL
      for (i in 1:input$obs) {