gvisGeoChart with shiny Dashboard

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) 

上記のコードは機能しません。

このコードは機能しますが、上記のコードでは見つからないものを特定できません。

何か助けていただければ幸いです。

Answer 1

問題はoptions()またはデータと関係があります。あなたの変数は、列 "状態"と "Road_Accident"列dot cotainingですか？ 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)