弹出窗口中的Shiny和GoogleVis

Question

我一般都是Shiny和R的新手，可以提供一些帮助！

我一直试图将一些googleVis输出变成Shiny而没有成功。我可以直接在R中获得气泡，动作和散点图的gvis输出，但不能在闪亮的应用中获得。

我已经检查了Mages和其他人的参考代码，但我没有得到Shiny的输出图表。

我已将其剥离回最基本但无法获得可视化效果。有没有人可以给我一个关于我做错的指针？ 谢谢！

#UI.R
library(shiny)
library(googleVis)
shinyUI(fluidPage(
  titlePanel("GoogleVis example"),
  sidebarLayout(
           sidebarPanel(
               h4("GoogleVis and Shiny")

               ),
       mainPanel(
            htmlOutput("bubble")

          )
      ))
  )


#Server.R
library(shiny)
library(googleVis)

shinyServer(function(input, output, session){
  Newyork=read.csv("data/Newyork.csv")
    output$bubble<- renderGvis({

      gvisBubbleChart(Newyork, idvar="County", xvar="Population", yvar="Crime.Rate") 

    })
})