Customdata format variations

There seems to be a lot of variations regarding the format in which the customdata is structured.

Showcase:

library(plotly)
library(htmlwidgets)

js <- "function(el, x) {
         el.on('plotly_click', function(d) {
           console.log(d);
           console.log(d.points[0].data.customdata[0]);
       });
       }"

X <- data.frame(x = c(1, 2, 1, 2), y = c(1, 1, 2, 2), z = as.character(1:4), mydata = letters[1:4])

gg <- ggplot(X, aes(x = x, y = y, customdata = mydata)) + geom_tile(aes(fill = z))

ggplotly(gg) %>% onRender(js)

Same as above, except z is now numerical:

X <- data.frame(x = c(1, 2, 1, 2), y = c(1, 1, 2, 2), z = 1:4, mydata = letters[1:4])

More information in this Stackoverflow post.

先使用 ggplotly() 和 htmlwidgets::onRender() 重现两个 R 示例，然后检查 plotly_click 回调中接收到的 customdata。该 issue 未指定目标文件或测试，也未定义所需的一致格式，因此需要在实现之前确定预期行为。