R/get_areas.R

In BrunoVilela/NUPEX: Analysis of academic output from lattes platform and other sources

get_areas <- function(xmls_list) {

  paper <- xmls_list$`DADOS-GERAIS`$`AREAS-DE-ATUACAO`

  if (is.null(paper)) {
    return(NULL)
  } else {
    n_papers <- length(paper)
    detalhes <- list()
    for (i in 1:n_papers) {
      # Detalhe do paper
      pre <- as.data.frame(as.list(paper[[i]]))
      detalhes[[i]] <-  pre
    }
    resultado <- do.call(plyr::rbind.fill, detalhes)
    return(tibble::as_tibble(resultado))
  }
}