Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/javascript/407.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/81.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Javascript 如何以Json文件格式从R中的分析中获取数据以获得D3可视化?_Javascript_R_D3.js - Fatal编程技术网

Javascript 如何以Json文件格式从R中的分析中获取数据以获得D3可视化?

Javascript 如何以Json文件格式从R中的分析中获取数据以获得D3可视化?,javascript,r,d3.js,Javascript,R,D3.js,我想得到Json文件作为分析的结果,只是作为D3代码的输入,然后得到可视化效果……有什么办法吗 我尝试在R中搜索很多东西,以获得json文件的结果,但没有改进。如果您使用的是shiny,那么您可以像反向Ajax一样从R向JavaScript发送消息: 首先,您需要JS中的处理程序: Shiny.addCustomMessageHandler("d3vis", function(json) { //d3 code that process json data }); 注意:默认情况下,不会

我想得到Json文件作为分析的结果,只是作为D3代码的输入,然后得到可视化效果……有什么办法吗


我尝试在R中搜索很多东西,以获得json文件的结果,但没有改进。

如果您使用的是shiny,那么您可以像反向Ajax一样从R向JavaScript发送消息:

首先,您需要JS中的处理程序:

Shiny.addCustomMessageHandler("d3vis", function(json) {
   //d3 code that process json data
});
注意:默认情况下,不会定义闪亮对象,因为它 在jqueryready函数内的
setTimeout(0)
中初始化,因此 还需要
$(function(){setTimeout(init,0);})和内部初始化
调用自定义事件处理程序的函数

在R中,您发送消息:

## example data
data <- list(
  x = list(1, 2, 3),
  y = list(10, 20, 30)
)
session$sendCustomMessage("d3vis", data)
##示例数据

这个闪亮的应用程序是什么?也许?这取决于你想要的视觉效果。当然,但是你试过什么?看见
observe({
  ## reactive data
  data <- list(
     x = list(input$x1, input$x2, input$x3),
     y = list(input$y1, input$y2, input$y3)
   )
   session$sendCustomMessage("d3vis", data)
})