Skip to content

Instantly share code, notes, and snippets.

View MartinLBarron's full-sized avatar

Martin Barron MartinLBarron

View GitHub Profile
library(shiny)
library(ggplot2)
shinyServer(function(input, output) {
dataset <- reactive(function() {
diamonds[sample(nrow(diamonds), input$sampleSize),]
})
output$plot <- reactivePlot(function() {