R Shiny + r2d3程序包-不呈现图表

Question

我一直在尝试使用r2d3包和RShiny绘制图表。该代码运行没有错误，但图表未显示。 D3可视化在R之外实现时有效。有人可以帮助我让这个特定的chart正常工作吗？

我的app.R代码如下

library(shiny)
library(r2d3)

ui <- fluidPage(

  d3Output("d3")
)

server <- function(input, output) {
  output$d3 <- renderD3({
    r2d3(
      #runif(5, 0, input$bar_max),
      data=data_C,
      script = system.file("examples/mult2.js" , package = "r2d3", d3_version = c("3"))
    )
  })
}

shinyApp(ui = ui, server = server)

在.js文件中，我替换了

d3.tsv("data.tsv", function(error, data) {
  color.domain(d3.keys(data[0]).filter(function(key) { return key !== "date"; }));

使用

d3.tsv(r2d3.data, function(error, data) {
  color.domain(d3.keys(data[0]).filter(function(key) { return key !== "date"; }));

基于r2d3 page中的示例。页面底部显示的动画条形图示例非常适合我。但是这个chart不是。任何帮助将不胜感激