r - rPlot が Shiny アプリに表示されない

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")
              )
  )
))

そして、ここに私のserver.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)
  })
})

options( RCHART_LIB = 'polycharts') 、 input$TestSel ~ Temperatureの周りにas.formulaを使用する、TestSelection-ui にリアクティブ要素を追加する、ブラウザを内部からFirefox から Chrome へ。

input$ TestSel ~ Temperatureが理由であると思われます。Chrome で JavaScript を検査すると、 input$TestSelが目的の値に解釈されているようには見えません。しかし、私はjavascriptにまったく慣れていないので、わかりません。編集: input$TestSelを目的の値に変更すると目的のプロットが得られるため、ここでエラーが発生することはかなり確信しています...ただし、それを解決する方法はまだわかりません。

R のみを使用すると、ビューアーでプロットが希望どおりに表示されます。