2

使用闪亮和 rCharts 创建仪表板应用程序，我需要将原始 javascript（不是字符串）传递给 Highcharts 对象。

鉴于此列表

series <- list(data = list(c(0, 0), c(100, 0), c(100, 100)),
               type = 'polygon',
               color = 'Highcharts.Color(Highcharts.getOptions().colors[0]).setOpacity(0.5).get()')

我需要生成这个 JSON

{series:[{
          data: [[0, 0], [100, 0], [100, 100]],
          type: 'polygon',
          color: Highcharts.Color(Highcharts.getOptions().colors[0]).setOpacity(0.5).get()
        }]
}

但我找不到任何方法来阻止 RJSONIO 或 jsonlte 引用颜色属性的值

闪亮提供 JS() 用于包装文字 javascript，但 RJSONIO 忽略它，并且 jsonlite 抱怨缺少类 JS_EVAL 的 asJSON 方法。

有没有其他方法可以选择性地防止引用 toJSON 输出？

4

2 回答 2

1

您需要 rCharts 作者的支持。两种方法：

  1. 简单的方法：使用htmlwidgets框架。然后你需要做的就是把你的 JS 代码放到htmlwidgets::JS(). JS 代码将被自动保存和评估。
  2. 更难的方法：重新发明我们在htmlwidgets中所做的事情。我不明白为什么有人想要这样做。无论如何，如果您关心血腥细节，我们所做的基本上是：
    1. JS()为字符串添加一个类JS_EVAL，我们找出这些字符串的位置（例如series[2].color）；
    2. 在 JavaScript 方面，查找和eval()那些字符串；
于 2016-04-27T22:12:11.213 回答
0

您不能使用 json 库执行此操作的原因是您的代码显然不是 JSON，而是 JavaScript。一个技巧是将文字字符串视为 json：

color <- 'Highcharts.Color(Highcharts.getOptions().colors[0]).setOpacity(0.5).get()'
class(color) <- 'json'
series <- list(data = list(c(0, 0), c(100, 0), c(100, 100)),
   type = 'polygon',
   color = color)

jsonlite::toJSON(series, json_verbatim = TRUE, auto_unbox = TRUE)
于 2016-04-27T22:06:41.790 回答