Nothing
library(shiny)
library(ggplot2)
shinyServer(function(input, output) {
dataset <- reactive(function() {
diamonds[sample(nrow(diamonds), input$sampleSize), ]
})
output$plot <- reactivePlot(function() {
p <- ggplot(dataset(), aes_string(x = input$x, y = input$y)) + geom_point()
if (input$color != "None")
p <- p + aes_string(color = input$color)
facets <- paste(input$facet_row, "~", input$facet_col)
if (facets != ". ~ .")
p <- p + facet_grid(facets)
if (input$jitter)
p <- p + geom_jitter()
if (input$smooth)
p <- p + geom_smooth()
print(p)
}, height = 700)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.