使用highcharter的load事件自动导出Highcharts为SVG失败，求解决方案

你的代码无法触发SVG下载的核心原因是浏览器安全策略会拦截非用户主动交互触发的自动下载请求，另外setTimeout回调里的this指向也可能出现偏差，导致无法正确调用Highcharts实例的导出方法。

以下提供三种可行的批量SVG导出方案，覆盖不同场景需求：

方案1：模拟用户点击导出按钮（绕过浏览器下载拦截） #

通过在图表加载完成后模拟点击默认的SVG导出按钮，间接触发用户交互类型的下载请求，避免被浏览器拦截：

library(highcharter)

hchart(
  citytemp_long, 
  type = "line",
  hcaes(x = month, y = temp, group = city)
) |>
  hc_exporting(
    enabled = TRUE, 
    filename = "example-chart",
    buttons = list(
      contextButton = list(
        # 仅保留SVG导出选项，减少干扰
        menuItems = list(
          list(textKey = "downloadSVG", onclick = "function() { this.exportChart({type: 'image/svg+xml'}); }")
        )
      )
    )
  ) |>
  hc_chart(
    events = list(
      load = JS(
        "function() {
          var chartInstance = this;
          setTimeout(function() {
            // 触发SVG导出按钮的点击事件
            chartInstance.downloadSVGElement.click();
          }, 500); // 延长等待时间确保图表完全渲染
        }"
      )
    )
  )

方案2：R端直接生成SVG（无需浏览器交互） #

适合批量生成场景，通过将图表保存为临时HTML，再用phantomjs提取SVG内容：

library(highcharter)
library(htmlwidgets)
library(xml2)

# 生成目标图表
chart <- hchart(
  citytemp_long, 
  type = "line",
  hcaes(x = month, y = temp, group = city)
) |>
  hc_exporting(enabled = FALSE) # 无需加载导出按钮

# 保存为临时HTML文件
temp_html <- tempfile(fileext = ".html")
saveWidget(chart, temp_html, selfcontained = TRUE)

# 安装phantomjs（仅需执行一次）
# webshot2::install_phantomjs()

# 提取SVG内容
svg_content <- webshot2::webshot(
  temp_html, 
  selector = "#container svg", 
  vwidth = 800, 
  vheight = 600, 
  file = NULL
)

# 保存SVG到本地文件
writeLines(as.character(svg_content), "example-chart.svg")

方案3：调用Highcharts导出服务器API #

通过官方导出服务器生成SVG，无需依赖本地浏览器或渲染工具，需联网：

library(highcharter)
library(httr)
library(jsonlite)

# 生成图表配置的JSON字符串
chart_config <- jsonlite::toJSON(
  chart$x$hc_opts,
  auto_unbox = TRUE,
  force = TRUE
)

# 发送请求到导出服务器
response <- POST(
  url = "https://export.highcharts.com/",
  body = list(
    options = chart_config,
    type = "image/svg+xml",
    filename = "example-chart"
  ),
  encode = "form"
)

# 保存返回的SVG内容
writeLines(content(response, "text"), "example-chart.svg")

内容的提问来源于stack exchange，提问作者cristian-vargas