Use plotly's default source name to capture click event on heatmaply

heatmaply_click_workaround.R

library(heatmaply)
library(shiny)
library(plotly)


ui <- fluidPage(
    titlePanel("Old Faithful Geyser Data"),
    mainPanel(
        plotlyOutput(outputId = 'heatmap')
    )
)

# Define server logic required to draw a histogram
server <- function(input, output) {

    output$heatmap <- renderPlotly({
        data <- rnorm(100) %>% matrix(., 10, 10)
        heatmaply(data)
    })
    
    observe({
        click_event <- event_data("plotly_click", source = "A")
        print(click_event)
    })
}

# Run the application 
shinyApp(ui = ui, server = server)