带闪亮仪表板的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) 

而此代码works.Unable找出上面的代码中缺少什么。

任何形式的帮助表示赞赏。

Answer 1

问题与您的options()或数据有关。您的变量是否包含“国家”和“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)