solving exercises chapther 16 (#101)

examples/16-escaping_the_graph/16.3.4-exercises/01-exercise.R

@@ -0,0 +1,29 @@
+
+# Provide a server function that draws a histogram of 100 random numbers
+# from a normal distribution when normal is clicked, and 100 random uniforms.
+
+library(shiny)
+
+ui <- fluidPage(
+ actionButton("rnorm", "Normal"),
+ actionButton("runif", "Uniform"),
+ plotOutput("plot")
+)
+
+server <- function(input, output, session) {
+
+ values <- reactiveVal(vector(mode = "numeric"))
+
+ observeEvent(input$rnorm, values(rnorm(100)))
+
+ observeEvent(input$runif, values(runif(100)))
+
+ output$plot <- renderPlot({
+ req(input$rnorm | input$runif)
+ hist(values())
+ })
+}
+
+shinyApp(ui, server)
+
+# source: https://mastering-shiny-solutions.netlify.app/escaping-the-graph

examples/16-escaping_the_graph/16.3.4-exercises/02-exercise.R

@@ -0,0 +1,28 @@
+
+# Modify your code from above for to work with this UI:
+
+library(shiny)
+
+ui <- fluidPage(
+ selectInput("type", "type", c("Normal", "Uniform")),
+ actionButton("go", "go"),
+ plotOutput("plot")
+)
+
+server <- function(input, output, session) {
+
+ values <- reactiveVal(vector(mode = "numeric"))
+
+ observeEvent(input$go, {
+ if(input$type == "Normal") values(rnorm(100)) else values(runif(100))
+ })
+
+ output$plot <- renderPlot({
+ req(input$go)
+ hist(values())
+ })
+}
+
+shinyApp(ui, server)
+
+# source: https://mastering-shiny-solutions.netlify.app/escaping-the-graph

examples/16-escaping_the_graph/16.3.4-exercises/03-exercise.R

@@ -0,0 +1,35 @@
+
+# Rewrite your code from the previous answer to eliminate the use of 
+# observe()/observeEvent() and only use reactive().
+# Why can you do that for the second UI but not the first?
+
+# Now we just need to track the event go.
+
+library(shiny)
+
+ui <- fluidPage(
+ selectInput("type", "type", c("Normal", "Uniform")),
+ actionButton("go", "go"),
+ plotOutput("plot")
+)
+
+server <- function(input, output, session) {
+
+ values <- reactive({
+ if(input$go == 0) return(NULL)
+ if(input$type == "Normal"){
+ rnorm(100)
+ }else{
+ runif(100)
+ }
+ })
+
+ output$plot <- renderPlot({
+ if(is.null(values())) return(NULL)
+ hist(values())
+ })
+}
+
+shinyApp(ui, server)
+
+# source: https://mastering-shiny-solutions.netlify.app/escaping-the-graph