R 传单 RStudio Viewer 空白（灰色）地图 [Windows 7]答案

【问题标题】：R leaflet RStudio Viewer blank (grey) map [Windows 7]R 传单 RStudio Viewer 空白（灰色）地图 [Windows 7]
【发布时间】：2015-10-17 07:55:55
【问题描述】：

在 RStudio 中使用小册子会在查看器中生成空白地图。只能看到标记。在控制台中看不到任何警告或错误消息。当我使用闪亮时，它在 RStudio 查看器中是相同的，但可以通过在闪亮服务器上侦听在 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

【问题讨论】：

你能为ui.R和server.R提供闪亮的代码吗？您的第一个示例适用于我，传单 1.0.0.，Rstudio 版本 0.98.1103。我在 64 位 Windows 7 上。
嗨 Roman，带有 ui 和服务器的闪亮示例位于我原始问题的第二个编码部分。这是一个标准的闪亮传单示例。还是我理解错了你的问题？
你是对的，原谅我的无知（不会再发生）。
您是否有可能使用了代理？
我不知道 RStudio 在这一点上是如何工作的。可能是这样，但我不这么认为，因为我可以在 RStudio 中看到带有 ggmap 包的地图。

标签： r google-maps shiny leaflet rstudio

【解决方案1】：

在您的第一个示例（非闪亮）中尝试使用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 查看器中的问题，或者您可以考虑按照here 的描述将 Shiny 直接启动到 Firefox，作为一种解决方法。

【讨论】：