current_date <- Sys.Date()
print(current_date)
## [1] "2025-01-19"

Map Centred on the Governance Capital of Canada