get_basic_data <- function(xmls_list) {
paper <- tibble::as_tibble(as.list(xmls_list$`DADOS-GERAIS`$.attrs))
paper <- dplyr::bind_cols(paper, as.list(xmls_list$.attrs))
return(paper)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.