帶閃亮儀表板的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)