Я пытаюсь показать изображения осадков в британском Метеорологическом бюро, наложенные на карту листовки.Образ Met Office доступен в виде изображения в формате png через API Met Office.Я новичок с листовкой, растром и т. Д., Поэтому, вероятно, делаю что-то явно не так.Изображение с осадками 500х500 (я полагаю, пикселей) и ограничено от 48N до 61N и от 12W до 5E.Я могу показать изображение на простом графике согласно следующему простому коду (я остановил API-ключ по соображениям конфиденциальности, поэтому, к сожалению, это невозможно воспроизвести, если только [пусто] ниже не заменено действительным ключом API Met Office Datapoint).
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
Кто-нибудь знает, как решить эту проблему, пожалуйста?
Спасибо
Дэвид.