# NOT RUN {
library(dataesgobr)
# }
# NOT RUN {
datasets <- search_by_title('atestados')
datasetsfiltered <- filter_by_title(datasets, "1999")
dataset <- load_dataset(datasetsfiltered)
download_data(dataset, "text/csv", TRUE, noconfirm = TRUE)
content <- load_data(file.path(tempdir(), "DB_HER_1999.csv"))
graph <- graphic_data("plot", content, "SEXO", xlim = 3, ylim = 2000)
graph
# }
Run the code above in your browser using DataLab