library(shiny)
library(plotly)
options(shiny.reactlog = TRUE)

ui <- fluidPage(
  fluidRow(
    column(4, checkboxInput("faithful_on", "Render `faithful` plot")),
    column(4, checkboxInput("iris_on", "Render `iris` plot")),
    column(4, checkboxInput("cars_on", "Render `cars` plot")),
  ),
  fluidRow(
    column(4, plotlyOutput("faithful_plot")),
    column(4, plotlyOutput("iris_plot")),
    column(4, plotlyOutput("cars_plot")),
  ),
  fluidRow(
    column(4, verbatimTextOutput("faithful_click")),
    column(4, verbatimTextOutput("iris_click")),
    column(4, verbatimTextOutput("cars_click")),
  )
)

server <- function(input, output, session) {

  output$faithful_plot <- renderPlotly({
    req(input$faithful_on)
    plot_ly(faithful, x=~eruptions, y=~waiting, type = "scatter", mode = "markers", source="faithful")
  })

  output$faithful_click <- renderPrint({
    req(input$faithful_on)
    list(
      updated_at = Sys.time(),
      data = event_data("plotly_click", source="faithful")
    )
  })

  output$iris_plot <- renderPlotly({
    req(input$iris_on)
    plot_ly(iris, x = ~Sepal.Length, y = ~Petal.Length, type = "scatter", mode = "markers", source = "iris")
  })

  output$iris_click <- renderPrint({
    req(input$iris_on)
    list(
      updated_at = Sys.time(),
      data = event_data("plotly_click", source="iris")
    )
  })

  output$cars_plot <- renderPlotly({
    req(input$cars_on)
    plot_ly(cars, x = ~speed, y = ~dist, type = "scatter", mode = "markers", source = "cars")
  })

  output$cars_click <- renderPrint({
    req(input$cars_on)
    list(
      updated_at = Sys.time(),
      data = event_data("plotly_click", source="cars")
    )
  })
}

shinyApp(ui = ui, server = server)