rPlot不会在Shiny app中显示

Question

我有一个应用程序，我想使用rCharts和polycharts，用工具提示创建一个图。但是当我加载闪亮的应用程序时，情节没有出现，我无法弄清楚原因。

这是我的ui.R：

library(shiny)
require(rCharts)

shinyUI(fluidPage(
  titlePanel("Please work..."),

  sidebarLayout(
    sidebarPanel( "Test:",
              uiOutput("TestSelection")),
    mainPanel("Plots (show me the money, please!):",
              showOutput("tempplot","polycharts")
              )
  )
))

这是我的服务器.R：

library(shiny)
require(rCharts)

#Test of rcharts and shiny.

df1 <- read.csv("//KED-FILE/ASIC-Shared/users/jhertel/Work/R_workspace/oban_test_data.csv",quote="")

shinyServer(function(input, output, session){

  output$TestSelection <- renderUI({
    df <- df1
    selectInput("TestSel", "Test Variable", ls(df, pattern = ".*?_meas|.*?_calc"))
  }) 

  output$tempplot <- renderChart2({
    dataPlot <- df1[,c("DUT", input$TestSel, "Temperature")]

    r1 <- rPlot(input$TestSel ~ Temperature,
                data = dataPlot, 
                type = "point", 
                tooltip = "#!function(item){return item.DUT}!#", 
                sample = FALSE)

    r1$guides(
      x = list(
        min = pretty( dataPlot$Temperature ) [1],
        max = tail( pretty( dataPlot$Temperature ), 1 ),
        numticks = length( pretty( dataPlot$Temperature ) ),
        labels = pretty( dataPlot$Temperature )
      ),
      y = list(
        min = pretty( dataPlot[, input$TestSel] ) [1],
        max = tail( pretty( dataPlot[, input$TestSel] ), 1 )
      )
    )

    return(r1)
  })
})

我尝试了不同的东西，例如选项（RCHART_LIB ='polycharts'），使用 as.formula 围绕输入$ TestSel~Temperature ，在TestSelection-ui上添加了一个反应元素，我尝试将浏览器从内部更改为Firefox，再添加到Chrome。

我怀疑输入$ TestSel~Temperature 是原因，因为当我用Chrome检查javascript时，它看起来不像输入$ TestSel 已被解释为所需的值。但我是javascript的总菜鸟，所以我不知道。编辑：我相当肯定我的错误发生在这里，因为将更改输入$ TestSel 设置为所需的值会导致所需的情节......但仍然不知道如何解决它。

当只使用R时，图表会在查看器中显示所需的内容。