# NOT RUN {
library(shiny)
ui <- fluidPage(
sliderInput("width", "width", min = 100, max = 700, value = 250),
g2Output("chart")
)
server <- function(input, output) {
output$chart <- renderG2({
g2(cars, asp(speed, dist)) %>%
fig_point()
})
observeEvent(input$width, {
g2Proxy("chart") %>%
change_width(input$width)
})
}
# }
# NOT RUN {
shinyApp(ui, server)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab