
```{r setup, include=F}
library(shiny)
options(shiny.useragg=FALSE)
```


```{r, echo=F}
sliderInput("obs", "Choose Number of Observations:", min=100, max=1000, value=100)
actionButton("generate", "Generate Data")

data_generate <- reactive({
    input$generate
})
renderPlot({
  data_generate()
  random_obs <- runif(input$obs, 0, 1)
  hist(random_obs, main='Histogram')
})
```



<!-- ## COMPILE FROM CLI
    Rscript -e "rmarkdown::run('TrialApp0_Histogram.Rmd')"
-->
