我试图将一个rCharts嵌入Shiny中并遇到问题 . 所以这个闪亮的应用程序工作正常 -

require(shiny)
require(rCharts)

server<-function(input, output) {
 output$chart <- renderChart2({
   n<-nPlot(~ Sepal.Width ,data=iris,group='Species',type='multiBarChart')
   return(n)
  })}

ui<-pageWithSidebar(
  headerPanel("Shiny + rCharts"),
   sidebarPanel(
    selectInput(inputId="columnName",label="Column Selection:",choices=names(iris))
   ),

  mainPanel(
   showOutput("chart", "nvd3")
  )
)

shinyApp(ui=ui,server=server)

但我想将 server 更改为被动，并绘制 ui 中的用户选择列 . 所以我可能会改变它

server<-function(input, output) {
  output$chart <- renderChart2({
  n<-nPlot(~input$columnName ,data=iris,group='Species',type='multiBarChart')
  return(n)
 })}

但是 input$columnName 在 rChart 的环境中没有得到正确的评估 - 我找不到错误对象'input' . 有关如何实现所需功能的任何想法？如果我在这里使用 ggplot ，正确的答案是切换到使用 aes_string() 而不是 aes() ，但我不确定 rCharts 的解决方案是什么 . 谢谢

r shiny rcharts