api <- get_topic("Postal")
files <- get_latest_files(api)$csv
file_to_download <- grep("_4326", files, value=TRUE)
response <- get_content(
api,
file_to_download,
save_to_file = TRUE,
dest = fs::file_temp(ext = "csv")
)
response$body
Run the code above in your browser using DataLab