R HighCharter语言 - 单击操作按钮时的 firePoint事件

Question

我正在使用R，Shiny和HighCharter，我想单击操作按钮并让树状图向下钻取到我指定的部分。例如，我单击"mybutton"操作按钮，它会向下钻取到欧洲部分。如果用户实际单击树状图，我能够捕获单击事件。但我想反转该过程，单击操作按钮，让树状图放大到我手动指定的树状图的一部分。可重现的代码：

library("shiny")
library("highcharter")
library("shinyjs")
library("treemap")
library("viridisLite")
data(GNI2014)
jscode <- "shinyjs.drillDownFunction = function() {
  var chart = $('#hcontainer').highcharts();
  chart.series[0].data[0].firePointEvent('click');
  console.log(chart);}"
jscode2 <- "shinyjs.drillDownFunction2 = function() {
  var chart = $('#hcontainer').highcharts();
  chart.series[0].data[0].series.hcEvents.click[0]();
  console.log(chart);}"
jscode3 <- "shinyjs.drillDownFunction3 = function() {
  var chart = $('#hcontainer').highcharts();
  Highcharts.fireEvent(chart.series[0].data[0], 'click');
  console.log(chart);}"
ui <-
  fluidPage(
    useShinyjs(),
    extendShinyjs(text = jscode, functions = "drillDownFunction"),
    extendShinyjs(text = jscode2, functions = "drillDownFunction2"),
    extendShinyjs(text = jscode3, functions = "drillDownFunction3"),
    fluidRow(
      column(width = 8, highchartOutput("hcontainer"))),
    fluidRow(
      column(width = 4, textOutput("text"))),
    fluidRow(
      column(width = 4, actionButton("mybutton", "Drill Down into TreeMap"),
                        actionButton("mybutton2", "Drill Down into TreeMap"),
                        actionButton("mybutton3", "Drill Down into TreeMap")))
    )
server <- function(input, output) {      
  tm <- treemap(GNI2014, index = c("continent", "iso3"),
                vSize = "GNI", vColor = "population",
                type = "value", palette = magma(12))
  output$hcontainer <- renderHighchart({      
    hctreemap(tm, allowDrillToNode = TRUE, allowPointSelect = TRUE) %>% 
      hc_title(text = "Gross National Income World Data")
  })
  shinyjs::onclick("mybutton", {
    js$drillDownFunction()
  })
  shinyjs::onclick("mybutton2", {
    js$drillDownFunction2()
  })
  shinyjs::onclick("mybutton3", {
    js$drillDownFunction3()
  })
}
shinyApp(ui = ui, server = server)

Answer 1

您可能希望使用 drillToNode 方法。这里有一个如何在 JS： http://jsfiddle.net/BlackLabel/Ljoqbc0h 中执行此操作的示例

let btn = document.getElementById('btn');
btn.addEventListener('click', function() {
  chart.series[0].drillToNode('id_0');
})