2

選択したバス ルートに応じてリーフレット (rCharts) マップを作成する Shiny アプリを作成しています。一見するとすべてが完全にレンダリングされますが、ルート番号を変更すると、空のマップが表示されます (タイルレイヤーでさえありません)。これはルート番号に固有のものではありません。たとえば、ルート番号に関係なく、最初のプロットを正常に作成するために任意のルート番号を選択できますが、2 番目のプロットはルート番号に関係なく空白です。

誰もこれに遭遇したことがありますか？回避策はありますか?

簡単な例を次に示します。

ui.R:

library(shiny)
library(rCharts)

shinyUI(fluidPage(
  titlePanel("Responsive Leaflet Map using rCharts"),

  sidebarLayout(
    sidebarPanel( "",
                  selectInput(
                    'route', 'Pick a bus route:',
                    choices = as.character(c("232","229"),
                                           selectize = FALSE)      
                  )
                  ),
    mainPanel("",
              chartOutput('map', 'leaflet')
              )
  )
))

サーバー.R:

library(shiny)
library(rCharts)
library(RJSONIO)
library(rgdal)

shinyServer(function(input, output) {
  output$map <- renderMap({
    filename <- paste('json/',input$route,'.geojson',sep='')
    json <- fromJSON(file = filename)

    map3 <- Leaflet$new()
    map3$tileLayer(provide='Esri.WorldTopoMap')
    map3$setView(c(49.2494,-122.9797), zoom = 10)
    map3$set(dom = 'map')
    map3$fullScreen(TRUE)
    map3$geoJson(
      json,
      style = "#!
  {color: '#c93312'}!#")
    map3
  })
})

あなたが提供できる助けをありがとう。

ハ

4

1 に答える 1

1

取り除くのがコツですmap3$set(dom = 'map')。問題が解決しました！

于 2015-03-24T21:28:44.430 に答える