gvisGeoChart mit glänzendem Dashboard

Question

Ausgabe für givsGeoChart in meinem glänzenden Dashboard nicht möglich.

Unten ist der Code für das gleiche.

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) 

Der obige Code funktioniert nicht.

während dieser Code funktioniert.Kann nicht herausfinden, was im obigen Code fehlt.

Jede Art von Hilfe wird geschätzt.

Answer 1

Problem hat etwas mit Ihrer options() oder Daten zu tun. Sind Ihre Variablen die Spalten "States" und "Road_Accident"? Haben Sie die Daten in server.R aufgenommen?

Dies funktioniert:

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)