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)