# NOT RUN {
library(dataesgobr)
# }
# NOT RUN {
id <- "l01280066-horarios-de-metro1"
dataset <- search_by_id(id)
download_data(dataset, "text/csv", noconfirm = TRUE, outfile = tempdir())
download_data(dataset, "text/csv", noconfirm = TRUE, overwrite = TRUE, outfile = tempdir())
download_data(dataset, "text/csv", FALSE, 1, noconfirm = TRUE)
download_data(dataset, "text/csv", FALSE, 1, noconfirm = TRUE, overwrite = TRUE)
download_data(dataset, "application/pdf", TRUE, noconfirm = TRUE, outfile = tempdir())
# }
Run the code above in your browser using DataLab