Pass plotly selections to shiny

plotly2shiny.R

library(plotly)
library(shiny)

m <- round(cor(mtcars), 3)
nms <- names(mtcars)

ui <- fluidPage(
  plotlyOutput("heat"),
  textOutput("p")
)

server <- function(input, output, session) {
  output$heat <- renderPlotly({
    plot_ly(x = nms, y = nms, z = m, key = m, type = "heatmap")
  })
  
  rv <- reactive({
    cv <- crosstalk::ClientValue$new("plotly_click", group = "A")
    cv$get()
  })
  
  output$p <- renderPrint({
    rv()
  })
  
}

shinyApp(ui, server)