将降雨图像层添加到R中的传单中

Question

我试图将英国的气象局降雨图像叠加到传单地图上。 Met Office图像通过Met Office API以png格式提供。我是传单，光栅等的新手。所以我可能做了一些明显错误的事情。降雨量图像为500x500（像素，我假设）并且限制在48N到61N和12W到5E。我可以在一个简单的图上显示图像，按照以下简单的代码（出于保密原因我没有使用API​​键，所以不幸的是，这是不可重现的，除非下面的[空白]被有效的Met Office Datapoint API密钥替换）

url5<-"http://datapoint.metoffice.gov.uk/public/data/layer/wxfcs/Precipitation_Rate/png?RUN=2018-05-18T03:00:00Z&FORECAST=36&key=[blank]"
rpg<-GET(url5)
r1<-content(rpg)
plot(c(100, 250), c(300, 450), type = "n", xlab = "", ylab = "")
rasterImage(r1, 100, 300, 150, 350, interpolate = FALSE) #this works, so this suggests that r1 is recognised as a raster image

但是，当我尝试使用以下简单代码进行传单时，我收到一条错误消息，如代码下方所示。

leaflet() %>%
addTiles() %>%
fitBounds(lng1=-12, lat1=48,lng2=5,lat2=61) %>%
addRasterImage(r1)

错误消息是：

Error: inherits(x, "RasterLayer") is not TRUE

有人知道如何解决这个问题吗？

由于

大卫。