library(charlatan)

set.seed(1234)

(z <- AddressProvider$new('nl_NL'))

address_list <- purrr::map(1:5, function(x) {
  dplyr::bind_cols(
    building = z$building_number(),
    street = z$street_address(),
    city = z$city(),
    zip = z$postcode()
  )
})

dplyr::bind_rows(address_list)