if (FALSE) {
library(leaflet)
library(leaflet.extras2)
Sys.setenv("OPENWEATHERMAP" = "Your_API_Key")
leaflet() %>%
addTiles() %>%
setView(9, 50, 9) %>%
addOpenweatherCurrent(options = openweatherCurrentOptions(
lang = "en", popup = TRUE
))
}
Run the code above in your browser using DataLab