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)

тогда как этот код работает. Невозможно выяснить, чего не хватает в приведенном выше коде.

Любая помощь приветствуется.

Answer 1

Проблема как-то связана с вашим options() или данные. Является ли ваша переменная dum содержательными столбцами "States" и "Road_Accident". Вы включили данные в server.R?

Это работает:

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

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

server <- function(input, output) {

      output$Accidents <- renderGvis({
            data(Exports)
            #map<-gvisGeoChart(Exports, "States","Road_Accident",
            #options=list(region="IN",displayMode="regions",resolution="provinces",width="100%"))
            map<-gvisGeoChart(Exports, locationvar='Country', colorvar='Profit',
                   options=list(projection="kavrayskiy-vii"))
            return(map)
            })
          }

shinyApp(ui, server)