主页 / coding / 问题 / 79465005
Accepted
cristian-vargas
Asked: 2025-02-25 06:57:17 +0800 CST

使用 highcharter R 包加载事件以编程方式将 highcharts 导出为 SVG

  • 772

我正在尝试利用包hc_chart()函数中提供的加载事件highcharter，以便在图表加载后将 highcharts 对象导出到 SVG，但到目前为止，我的代码无法下载任何内容。通常，如果我对 PNG 或 JPEG 图像感兴趣，我只会使用webshot2::webshot()，但没有对 SVG 的本机支持。我也可以手动点击导出菜单以将图表下载为 SVG，但我生成的图表太多而无法手动下载。下面是我迄今为止的尝试：

library(highcharter)

hchart(
# Default data set included with highcharter
  citytemp_long, 
  type = "line",
  hcaes(x = month, y = temp, group = city)
) |>
  hc_exporting(enabled = TRUE, filename = "example-chart") |>
  hc_chart(
    events = list(
      load = JS(
        "function() {
          setTimeout(function() {
            this.exportChart({ type: 'image/svg+xml' });
          }, 100);
        }"
      )
    )
  )

由于highcharter需要将JS()函数内包装的 JavaScript 传递给 Highcharts API，我查看了一些 JSFiddle 示例，但我找到的每个示例都使用按钮 + eventListener 组合来创建快速导出菜单。提前感谢任何帮助！

2 个回答

  1. Best Answer

    您还可以使用内置exportChartLocal()功能，它会打开一个下载弹出窗口，您可以在其中选择 SVG 文件的放置位置。请注意，由于 Highcharter 在浏览器环境中运行 Highcharts，因此安全策略需要用户交互以防止未经授权的下载。

    highcharter::highchart() %>%
hc_add_dependency("modules/exporting.js") %>%
hc_add_dependency("modules/offline-exporting.js") %>%
hc_chart(events = list(
  load = JS("function() {
    var chart = this;
    setTimeout(function() {
      chart.exportChartLocal({ type: 'image/svg' });
    }, 1000); // Delay to ensure chart is fully rendered
  ")
))
    • 2

  2. 您可以将 保存highchart为 HTML，然后使用selenider打开它并单击Download as SVG button。

    出去

    #install.packages("pacman")
library(pacman)
p_load(highcharter, selenider, htmlwidgets)

chart <- hchart(citytemp_long,  type = "line",hcaes(x = month, y = temp, group = city)) |>
  hc_exporting(enabled = TRUE, filename = "example-chart")

download_HighChart <- function(chart){
  temp_html_file <- tempfile(fileext = ".html")
  saveWidget(chart, temp_html_file, selfcontained = TRUE)
  
  session <- selenider_session("selenium", browser = "chrome")
  open_url(paste0("file://", temp_html_file))
  session |> find_element("path.highcharts-button-symbol") |> elem_click()
  res <- session |> find_elements("li[class='highcharts-menu-item']")|>
    elem_find(has_text("SVG"))|>  elem_click()
  Sys.sleep(0.8)
  file.remove(temp_html_file)
}

download_HighChart(chart)
    • 1

相关问题