R leaflet RStudio Viewer显示空白（灰色）地图[Windows 7]

Question

在RStudio中使用leaflet会导致查看器中出现空白地图。 只有标记可以看到。 控制台中没有警告或错误消息。 当我使用shiny时，在RStudio查看器中也是一样的，但通过监听shiny服务器可以在FireFox浏览器中看到地图。

devtools::install_github("rstudio/leaflet");library(leaflet)
m <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
  addMarkers(lng = 174.768, lat = -36.852,
             popup = "The birthplace of R")
m  # Print the map

sessionInfo()

R version 3.2.0 (2015-04-16)
Platform: i386-w64-mingw32/i386 (32-bit)
Running under: Windows 7 (build 7601) Service Pack 1

locale:
[1] LC_COLLATE=German_Germany.1252  LC_CTYPE=German_Germany.1252    LC_MONETARY=German_Germany.1252
[4] LC_NUMERIC=C                    LC_TIME=German_Germany.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] geosphere_1.3-13 maps_2.3-9       WDI_2.4          RJSONIO_1.3-0    rgdal_1.0-4      sp_1.1-1        
 [7] leaflet_1.0.0    shiny_0.12.0     dplyr_0.4.1      readxl_0.1.0     memoise_0.2.1   

loaded via a namespace (and not attached):
 [1] digest_0.6.8     htmltools_0.2.6  R6_2.0.1         curl_0.9         assertthat_0.1   grid_3.2.0      
 [7] bitops_1.0-6     stringr_1.0.0    devtools_1.8.0   httr_0.6.1       httpuv_1.3.2     git2r_0.10.1    
[13] rversions_1.0.1  lattice_0.20-31  mime_0.3         DBI_0.3.1        xml2_0.1.1       rstudioapi_0.3.1
[19] jsonlite_0.9.16  stringi_0.4-1    magrittr_1.5     RCurl_1.95-4.6   yaml_2.1.13      tools_3.2.0     
[25] parallel_3.2.0   htmlwidgets_0.5  xtable_1.7-4     lazyeval_0.1.10  Rcpp_0.11.6     

闪亮的代码：

library(shiny)
library(leaflet)

r_colors <- rgb(t(col2rgb(colors()) / 255))
names(r_colors) <- colors()

ui <- fluidPage(leafletOutput("mymap"),
                p(),
                actionButton("recalc", "New points"))

server <- function(input, output, session) {
  points <- eventReactive(input$recalc, {
    cbind(rnorm(40) * 2 + 13, rnorm(40) + 48)
  }, ignoreNULL = FALSE)

  output$mymap <- renderLeaflet({
    leaflet() %>%
      addProviderTiles("Stamen.TonerLite",
                       options = providerTileOptions(noWrap = TRUE)) %>%
      addMarkers(data = points())
  })
}

shinyApp(ui, server)

Listening on http://127.0.0.1:5916

- sajatogu

---

你能提供ui.R和server.R的漂亮代码吗？你的第一个例子对我有效，使用leaflet 1.0.0，Rstudio版本为0.98.1103。我的系统是64位Windooz 7。 - Roman Luštrik

嗨Roman，带有UI和服务器的光滑示例在我原始问题的第二部分编码中。那是一个标准的闪亮的leaflet示例。或者我理解你的问题错了吗？ - sajatogu

你是对的，抱歉我的无知（不会再发生了）。 - Roman Luštrik

你是否可能在代理后面？ - Roman Luštrik

哈，老旧的IE。我并不惊讶它不能按预期工作。在Chrome上它对我有效。我没有任何关于他们实现了什么样的浏览器的信息。也许查看源代码会有所收获？我怀疑他们使用系统默认设置，唉... - Roman Luštrik

Answer 1

在你的第一个例子（非Shiny）中尝试的一件事��使用addProviderTiles代替addTiles。

m <- leaflet() %>%
  addProviderTiles(providers$OpenStreetMap) %>%  
  addMarkers(lng = 174.768, lat = -36.852,
         popup = "The birthplace of R")
m  # Print the map

相同的addProviderTiles替换也可能解决RStudio查看器中的问题，或者您可以考虑像这里描述的直接在Firefox中启动Shiny作为解决方法。

- joelnNC