Leaflet map

Its just a simple Leaflet map, which illustrates the hungarian flag with the coordinates of the capital city

library(leaflet)
## Warning: a(z) 'leaflet' csomag az R 4.4.3 verziójával lett fordítva
#make coordinates for Budapest
Budapest =data.frame( lat = 47.497913, lng=19.040236 )
#make Hungary flag icon
icon = makeIcon( 
    iconUrl = "data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAT4AAACfCAMAAABX0UX9AAAAGFBMVEXOKTn///9HcFDOJjf99vb3+fhOdVbQMkCoI4bUAAAA+ElEQVR4nO3QoQGDAAAEsadA2X9jNPpsMkI2AAAAAAAAAAAAAAAAAAAA4Osk2EOwi2AHgb5EX6Iv0ZfoS/Ql+hJ9ib5EX6Iv0ZfoS/Ql+hJ9ib5EX6Iv0ZfoS/Ql+hJ9ib5EX6Iv0ZfoS/Ql+hJ9ib5EX6Iv0ZfoS/Ql+hJ9ib5EX6Iv0ZfoS/Ql+hJ9ib5EX7KbYH+C/Qj0JfoSfYm+RF+iL9GX6Ev0JfoSfYm+RF+iL9GX6Ev0JfoSfYm+RF+iL9GX6Ev0JfoSfYm+RF+iL9GX6Ev0JfoSfYm+RF+iL9GX6Ev0JfoSfYm+RF+iL9GX6Ev0JfoSfckLQAbfmetSJfMAAAAASUVORK5CYII=",
    iconWidth=60, iconHeight= 30)
#make leaflet object
Budapest %>%
    leaflet() %>%
    addTiles() %>%
    addMarkers( icon=icon)
#date
A =Sys.Date()

The date when I created the document: 2025-03-10