rCharts d3pie没有出现在闪亮的应用程序中

Question

我正在使用d3pie rChart。 它在我在rStudio查看器中查看时有效。 当我尝试将其输入闪亮的应用程序时，我收到错误：

addResourcePath（LIB $ name，LIB $ url）出错：找不到对象'LIB'

它希望我告诉它我在showOutput（'chart1'，'LIB'）中使用的库（例如，Nvd3，Highcharts），但我不确定使用哪一个。

同样，当我将d3pie图表保存为html文件时，它将无法在我的浏览器中打开。 有没有解决的办法？

数据：

x <- data.frame(table = as.factor(c("A","B","C","D","E","F")), 
     value = c(518,39,337,304,56,7))

代码为d3pie：

require(magrittr)
require(dplyr)
require(rCharts)
rPie <- rCharts$new()
rPie$setLib("http://timelyportfolio.github.io/rChartsExtra/d3pie")
rPie$addParams(
  chartspec = list(
    header = list(
      title = list(
        text = "Breakdown of 2014 Revenue Sources"
      )
    )
    ,data = list(
      content = x
    )
  )
)
rPie

server.R：

require(rCharts)
require(reshape)
require(magrittr)
require(dplyr)

x <- data.frame(table = as.factor(c("A","B","C","D","E","F")), 
                value = c(518,39,337,304,56,7))

shinyServer(function(input, output) {
  output$chart1 <- renderChart2({
    rPie <- rCharts$new()
    rPie$setLib("http://timelyportfolio.github.io/rChartsExtra/d3pie")
    cat(add_lib_assets(rPie$lib,cdn=T))
    rPie$addParams(
      chartspec = list(
        header = list(
          title = list(
            text = "This is the title"
          )
        )
        , data = list(
          content = x
        )
      )
    )
    rPie$set(dom = "chart1")
    return(rPie)
  })
})

ui.R：

require(rCharts)

shinyUI(fluidPage(
  titlePanel("Shiny App"),

  mainPanel(
               showOutput('chart1')
      ) 
    )
  )

Answer 1

为了使其在正常工作shiny ，你需要添加d3pie在你的lib showOutput ：

showOutput('chart1','d3pie')

您还可以下载额外的库 ，并将d3pie文件夹复制/粘贴到server.R和ui.R所在的文件夹中。