rPlot赢得'；不显示在闪亮的应用程序

我有一个应用程序，我想使用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)
  })
})

库（闪亮）
要求（艺术）
#艺术和光泽的考验。
df1
input$TestSel
是一个字符，请尝试
rPlot（x=“Temperature”，y=input$TestSel，
。谢谢，非常感谢！我本以为我也尝试过，但效果很好。整个上午都很困扰。