闪亮+ rCharts - 对象＆＃39;输入＆＃39;未找到

Question

我试图将一个rCharts嵌入Shiny并遇到问题。所以这个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的环境中正确评估 - 我收到错误对象＆＃39;输入＆＃39;找不到。有关如何实现所需功能的任何想法？如果我在这里使用ggplot，则正确的答案是切换为使用aes_string()而不是aes()，但我不确定{{1}的解决方案是什么}。感谢