# NOT RUN {
library(dplyr)
library(sf)
brno <- obce_polygony() %>% # shapefile of Brno
filter(NAZ_OBEC == "Brno")
pupek_brna <- st_centroid(brno) # calculate centroid
adresa_pupku <- revgeo(pupek_brna)$revgeocoded # address of the center
# }
Run the code above in your browser using DataLab