require(tidyverse) require(shiny) data = mtcars shiny::numericInput('height' , 'height' , min = 100 , max = 2000 , value = 300) f = function(data){ renderPlot( height = function(){ input$height } , expr = { ggplot(data) + geom_point( aes(x = disp, y = cyl)) }) } f(data)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.