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 中工作，您需要在showOutput 中添加d3pie 作为库：

showOutput('chart1','d3pie')

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