# NOT RUN {
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