使用来自JavaScript（D3r）的警报将数据传递给R

我需要将数据从Sunburst plot传递到R服务器端。下面的代码创建了一个sunburst图，并在您选择Kerry的curtesy以及他与HTMLWidgets和SunburstR的伟大作品时发出警告。我希望能够传递这些信息，以便我可以创建一个下载列表

library(sunburstR)

# read in sample visit-sequences.csv data provided in source
#   https://gist.github.com/kerryrodden/7090426#file-visit-sequences-csv
sequences <- read.csv(
  system.file("examples/visit-sequences.csv",package="sunburstR")
  ,header = FALSE
  ,stringsAsFactors = FALSE
)

sb <- sunburst(sequences)

sb$x$tasks <- list(
  htmlwidgets::JS(
"
function(){
  //debugger;

  this.instance.chart.on('click',function(d){
    alert(d);
  });
}
"    
  )
)

sb

使用：

然后你可以用

input$val

在提供值d的服务器端。使用：

然后你可以用

input$val

---

在服务器端，它为您提供了值d。

非常感谢您的支持。两天来，我一直在为这件事绞尽脑汁。非常感谢你。两天来我一直在用头撞它。