带有 Highcharts 的 rCharts 作为 Shiny 的应用程序

Question

我有一个 Shiny 的应用程序，由三个文件组成。 server.R、ui.R 和用于启动应用程序的文件

require(shiny)
require(rCharts)
runApp("shinyApp")

应用程序启动，但绘图不可见。它适用于普通的 r-plot 和 polycharts，但在尝试了很多之后，我仍然没有成功使用 rCharts(包括 rHighcharts)。

这是最后一次尝试的文件:

服务器.R:

library(rCharts)
shinyServer(function(input, output) {
  output$myChart <- renderChart({
    h1 <- Highcharts$new()
    h1$chart(type = "spline")
    h1$series(data = c(1, 3, 2, 4, 5), dashStyle = "longdash")
    h1$series(data = c(NA, 4, 1, 3, 4), dashStyle = "shortdot")
    h1$legend(symbolWidth = 80)
    return(h1)
  })
})

用户界面:

require(rCharts)
shinyUI(pageWithSidebar(
  headerPanel("rCharts: Highcharts"),
  sidebarPanel(
    selectInput(inputId = "x",
      label = "Choose X",
      choices = c('SepalLength', 'SepalWidth', 'PetalLength', 'PetalWidth'),
      selected = "SepalLength")
    ),
  mainPanel(showOutput("myChart", "Highcharts")
  )
))

我的假设是“showOutput”的第二个参数可能是错误的，但我什么也没找到。

Answer 1

有两种方法可以让这个工作。第一种方式是添加h1$set(dom = "myChart")在您的 server.R .这是必需的，以便 server.R和 ui.R正在沟通正确的图表。替代方法是使用 renderChart2 ，这是在 dev rCharts 的分支，即renderChart的升级版并将最终取代它。为了大家的利益，我附上了整个代码。

require(rCharts)
require(shiny)
runApp(list(
  ui =  pageWithSidebar(
    headerPanel("rCharts: Highcharts"),
    sidebarPanel(selectInput(
      inputId = "x",
      label = "Choose X",
      choices = c('SepalLength', 'SepalWidth', 'PetalLength', 'PetalWidth'),
      selected = "SepalLength"
    )),
    mainPanel(showOutput("myChart", "Highcharts"))
  ),
  server = function(input, output){
    output$myChart <- renderChart2({
      h1 <- Highcharts$new()
      h1$chart(type = "spline")
      h1$series(data = c(1, 3, 2, 4, 5), dashStyle = "longdash")
      h1$series(data = c(NA, 4, 1, 3, 4), dashStyle = "shortdot")
      h1$legend(symbolWidth = 80)
      return(h1)
    })
  }
))