在R中呈现javascript

我试图在一个闪亮的应用程序中使用谷歌可视化API小工具。我认为这个问题可能对其他javascript使用有所帮助。 我想在我的应用程序中插入此小工具（）。问题是如何将动态javascript传递给我的闪亮应用程序。这是我的尝试：

 library(shiny)

runApp(list(

ui=
    shinyUI(fluidPage(

                titlePanel("example"),
                 fluidRow(column(3,wellPanel(
                        sliderInput("n", "N:", min = 10, max = 1000, value = 200,step = 10)
                                    )),
                        column(6, verbatimTextOutput("text")
                                    )),
                uiOutput("my_script")   

             )) ,

server=
        function(input, output, session) {

        output$text <- renderText({
           paste("Input is:", input$n)
                    })

        output$my_script<-renderUI({
                    HTML(paste("
                    <link rel=\"stylesheet\" type=\"text/css\" href=\"http://visapi-gadgets.googlecode.com/svn/trunk/pilesofmoney/pom.css\"/>
                              <script type=\"text/javascript\" src=\"http://visapi-gadgets.googlecode.com/svn/trunk/pilesofmoney/pom.js\"></script>
                              <script type=\"text/javascript\" src=\"http://www.google.com/jsapi\"></script>

                     <div id=\"chartdiv\"></div>

                            <script type=\"text/javascript\">
                                 google.load(\"visualization\", \"1\");
                                 google.setOnLoadCallback(drawChart);
                                                  var chart;
                                      function drawChart() {
                          var data = new google.visualization.DataTable();
                          data.addColumn('string', 'Label');
                         data.addColumn('number', 'Value');
                                    data.addRows(1);
                         data.setCell(0, 0, 'Value');
                         data.setCell(0, 1,",   input$n ,", 'up');
                         var chartDiv = document.getElementById('chartdiv');
                         var options = {title: 'My ploy',currency:'EUR',canSelect:false,max:1000,min:10};
                         chart = new PilesOfMoney(chartDiv);
                          chart.draw(data, options);
                               //google.visualization.events.addListener(chart, 'select', handleSelect);
                                          }
                                </script>"  
                                        ,sep=""))
                                    })


}))