r - 如何修改highcharter htmlwidget代码

Question

我想更改 R 中 highcharter 的核心代码（要求来自这篇文章）。我想更改 R 中 highcharts 的核心代码，因为我知道如何在 javascript 中修改它：

(function(H) {
  (...)

  H.seriesTypes.column.prototype.translate3dShapes = function() {
      (...)    

        point.shapeType = 'cuboid';
        shapeArgs.z = z;
        shapeArgs.depth = point.options.depth; // changed from: shapeArgs.depth = depth;
        shapeArgs.insidePlotArea = true;

      (...) 
  };

})(Highcharts);

使用或诸如这些​​解决方案调用此代码js_typeof不再有用。

问题是*如何更改R中highcharter的核心代码

Answer 1

您可以使用以下方法创建自定义高图小部件：

• 首先，您可以拥有一个带有highcharter::highchartzero(). 此自定义小部件仅加载 highcharts.js。
• 然后使用添加 highcharts3dhighcharter::hc_add_dependency("highcharts-3d.js")
• 最后，您可以使用函数将js作为依赖项添加到小部件htmltools::htmlDependency（内部hc_add_dependency使用此函数）

代码将类似于（未经测试）：

hc <- highcharter::highchartzero() %>% 
  highcharter::hc_add_dependency("highcharts-3d.js")

hc # see the source code and see only highcharts and highcharts-3d is loaded.

# adding depedency
dep <- htmlDependency(
    name = "change-depth",
    version = "1.0.0",
    src = "the/folder/", # absolute path I think!
    script = "your_js_script.js"
  )

hc$dependencies <- c(hc$dependencies, list(dep))

hc # see the source again

hc %>% hc_add_series(...) # add the data