美国国家航空航天局贴有R字传单的瓷砖

我想就这套传单寻求一些帮助。绘制交互式地图时，可以执行以下操作

library(leaflet)
library(magrittr)

m <- leaflet() %>% 
     setView(lng = -71.0589, lat = 42.3601, zoom = 8) %>%
     addTiles() 

m

链接中的一些瓷砖选项包括NASA提供的瓷砖。我想用一个。所以我尝试了以下代码。不幸的是，他们都没有成功

### The default map appears, then a black layer appears on top of the default layer.
m %>% addProviderTiles("NASAGIBS.ModisTerraTRUEColorCR")
m %>% addProviderTiles("NASAGIBS.ModisTerraBands367CR")

唯一有效的选项是以下选项

m %>% addProviderTiles("NASAGIBS.ViirsEarthAtNight2012")

我的下一次尝试是将自定义URL模板与

addTiles（）

一起使用。URL来自上面的链接。但这也不成功,；没有出现错误消息，但平铺中没有更改

m %>%addTiles(urlTemplate = "http://map1.vis.earthdata.nasa.gov/wmts-webmerc/MODIS_Terra_CorrectedReflectance_Bands367/default/{time}/{tilematrixset}{maxZoom}/{z}/{y}/{x}.{format}",
              tileOptions(minZoom = 1, maxZoom = 8))

我最后的尝试如下。这显示了默认贴图，但也没有显示其他平铺

leaflet() %>%
addTiles() %>%
setView(lng = -71.0589, lat = 42.3601, zoom = 8) %>%
addTiles(urlTemplate = "http://map1.vis.earthdata.nasa.gov/wmts-webmerc/MODIS_Terra_CorrectedReflectance_Bands367/default/{time}/{tilematrixset}{maxZoom}/{z}/{y}/{x}.{format}",
         tileOptions(minZoom = 1, maxZoom = 8))

我的问题是，这是否是一个专门针对NASA瓷砖的潜在缺陷。或者，在这些脚本中我需要什么修订？提前谢谢你的帮助

更新

我找到了一个使用相同NASA瓷砖的。我指定了

NASAGIBS.ModisTerraTRUEColorCR

，得到了下图。这张图片显示了一封邮件是如何从美国发送到瑞典的。正如你所看到的，美国和欧洲都没有形象。我想这可能是我看到黑色瓷砖的原因。我想知道是否有人知道NASA瓷砖的一些细节。我选择了可以看到NASA图像的区域。但是，我没有运气

### I expected to see Japan area this time.
foo <- leaflet() %>% 
       setView(lng = 137.37, lat = 35.93, zoom = 5) %>%
       addTiles() 

foo %>% addProviderTiles("NASAGIBS.ModisTerraTRUEColorCR")

---

您的最终结论是正确的：根据您请求图像的位置和请求时间，卫星可能已经获得图像，也可能尚未获得图像。因此，您可能会得到一个实际的图像或只是一个空的。（这一点在附录中也有说明。）

但是，您可以通过addProviderTiles（）的“时间”选项指定请求图像的日期。通过指定最近的日期，您可以获得所有位置的非空图像（如果您喜欢的话）

以下是语法：

> library(leaflet)
> library(magrittr)

> m <- leaflet() %>% 
       setView(lng = 4.5, lat = 51, zoom = 1) %>%
       addTiles() %>% 
       addProviderTiles("NASAGIBS.ModisTerraTrueColorCR",
                        options = providerTileOptions(time = "2015-08-31", opacity = 0.5))

> m

我们得到了完整的图像：

最后，原因是什么

m %>% addProviderTiles("NASAGIBS.ModisTerraTRUEColorCR")

不起作用可能是因为打字错误。应该是

m %>% addProviderTiles("NASAGIBS.ModisTerraTrueColorCR")

---

谢谢这次的选择！了解这一点非常有帮助。：）

options = providerTileOptions(time = "2015-08-30", opacity = 0.5)

m %>% addProviderTiles("NASAGIBS.ModisTerraTRUEColorCR")

m %>% addProviderTiles("NASAGIBS.ModisTerraTrueColorCR")