reprex (1/2)
library(sf)
library(mapsapi)
library(dplyr)
addresses <- c("Avenida Pirâmide 343 - 09970900", "Avenida Piraporinha 233 - 09950902",
"Rua Tiradentes 110 - 09911901", "Rua Paulo Afonso 184 - 09950910")
mapsapi_key <- Sys.getenv("mapsapi_key")