Наведите курсор мыши на события на графиках d3heatmap

Question

Я хочу создать блестящее приложение, которое предоставляет данные, соответствующие определенному месту в тепловой карте, в отдельной таблице.

В блестящем

d3heatmapOutput("HeatPlot", click = "plot1_click" ),
tableOutput("Table")

А потом в блестящий. Сервер

output$HeatPlot <- renderD3heatmap(d3heatmap(inc1, scale = 'column',Colv = NA,
                                   Rowv = NA,col = rainbow(256)))

Затем, когда пользователь нажимает на любое место на тепловой карте, отображается таблица, содержащая значения в этой точке таблицы.

output$Table <- renderTable({
      if (is.null(input$plot1_click$x)) return()
      else {
        keeprows <- round(input$plot1_click$x) == as.numeric(Data)
        head(Data[keeprows, ], 10)

Но когда я запускаю ошибку приложения, как

Error in d3heatmapOutput("HeatPlot", click = "plot1_click") : 
                      unused argument (click = "plot1_click")

Поставляется. Функция click недействительна для d3heatmap? Или я должен что-то установить перед этим? Пожалуйста помоги.

Фрейм данных inc1 выглядит примерно так

ИЛИ ЖЕ

Если я использую HeatMap.2 или HeatMap с тем же Блестящим. Но

inc1 = output$HeatPlot <- renderPlot(heatmap(inc1, scale = 'column',Colv = NA, Rowv = NA,
                                                                        col = rainbow(256)))

я получил

Warning: Error in renderTable: (list) object cannot be coerced to type 'double'

Что мне делать?