Question

我试图将rCharts输出添加到闪亮的应用中。如果输入无效，那么我不想输出任何内容 - 所以我希望能够返回NULL或以某种方式有一个＆＃34;空图＆＃34;在输出中。但是我无法弄清楚如何在rCharts中创建一个空图。

这里是我的代码，示例直接取自README，但我注释掉了绘图代码并返回了NULL

library(shiny)
library(rCharts)

ui <- pageWithSidebar(
  headerPanel("rCharts: Interactive Charts from R using polychart.js"),

  sidebarPanel(
    selectInput(inputId = "x",
                label = "Choose X",
                choices = c('SepalLength', 'SepalWidth', 'PetalLength', 'PetalWidth'),
                selected = "SepalLength"),
    selectInput(inputId = "y",
                label = "Choose Y",
                choices = c('SepalLength', 'SepalWidth', 'PetalLength', 'PetalWidth'),
                selected = "SepalWidth")
  ),
  mainPanel(
    showOutput("myChart", "polycharts")
  )
)

server<- function(input, output) {
  output$myChart <- renderChart({
    # names(iris) = gsub("\\.", "", names(iris))
    # p1 <- rPlot(input$x, input$y, data = iris, color = "Species", 
    #             facet = "Species", type = 'point')
    # p1$addParams(dom = 'myChart')
    # return(p1)
    return(NULL)
  })
}

shinyApp(ui, server)

Answer 1

showOutput期望一个对象回到正确的位置，那么为什么要回赠该类的空对象。

output$myChart <- renderChart({
        mychart <- Polycharts$new()
        return(mychart)
})

如何在rCharts中创建一个空图？

1 个答案: