Reactive value in Shiny #shiny

reactiveVal.R

library(shiny)

ui <- fluidPage(
    column(12,
           # toggle between normal or uniform distribution
           actionButton("rnorm", "Normal"),
           actionButton("runif", "Uniform")
    ),
    column(12,
           plotOutput("plot")
    )
)

server <- function(input, output, session) {
    
    # initiate a 'reactive variable'
    df <- reactiveVal(rnorm(100))  
    
    output$plot <- renderPlot({
        hist(df())
    })
    
    observeEvent(input$rnorm, {
        # update value
        df(rnorm(100))
        
        ## OR
        # new <- rnorm(100)
        # df(new)
    })
    
    observeEvent(input$runif, {
        df(runif(100))
    })
    
}

shinyApp(ui, server, options = list(height = 500))