r - 光沢のあるダッシュボードを備えた gvisGeoChart

Question

光沢のあるダッシュボードで givsGeoChart の出力を取得できません。

以下は同じコードです。

library(shiny)
library(shinydashboard)
library(googleVis)

ui <- dashboardPage(
       dashboardHeader(),
       dashboardSidebar(),
       dashboardBody(
          htmlOutput("Accidents")
                    )
                   )

server <- function(input, output) {

      output$Accidents <- renderGvis({
            gvisGeoChart(Dum, "States","Road_Accident",
            options=list(region="IN",displayMode="regions",resolution="provinces",width="100%"))
            })
          }

shinyApp(ui, server)

上記のコードは機能しません。

GeoStates_IN <- gvisGeoChart(Dum, "States","Road_Accident",options=list(region="IN",displayMode="regions",resolution="provinces",width="100%"))
plot(GeoStates_IN)

このコードは機能しますが、上記のコードに何が欠けているのかわかりません。

どんな種類の助けも大歓迎です。