added conferences to output

Author: msperlin

R/get_conferences.R

@@ -0,0 +1,28 @@
+get_conferences <- function(my_xml) {
+
+  all_conf <- xml2::xml_find_all(my_xml, ".//APRESENTACAO-DE-TRABALHO")
+
+  if (length(all_conf) != 0) {
+
+    df_conf <- tibble::tibble()
+
+    for (i_node in all_conf) {
+      conf_dados_basicos <- fetch_df(i_node, ".//DADOS-BASICOS-DA-APRESENTACAO-DE-TRABALHO")
+
+      conf_detalhes <- fetch_df(i_node, ".//DETALHAMENTO-DA-APRESENTACAO-DE-TRABALHO")
+
+      df_conf <- dplyr::bind_rows(
+        df_conf,
+        dplyr::bind_cols(
+          conf_dados_basicos,
+          conf_detalhes
+        )
+      )
+    }
+
+  } else {
+    df_conf <- tibble::tibble()
+  }
+
+  return(df_conf)
+}

R/gld_read_lattes_zip2.R

@@ -62,6 +62,13 @@ gld_read_zip2 <- function(f_zip){
     "got {nrow(accepted_papers)} accepted papers"
   )
 
+  # conference papers
+  conferences <- get_conferences(my_xml)
+
+  cli::cli_alert_success(
+    "got {nrow(conferences)} conferences"
+  )
+
   # books ----
   books <- get_books(my_xml)
 
@@ -111,7 +118,8 @@ gld_read_zip2 <- function(f_zip){
     supervisions = superv_all,
     at_prof = at_prof,
     projects = projs,
-    coauthors = coauthors
+    coauthors = coauthors,
+    conferences = conferences
   )
 
   # parse and fix list output

vignettes/gld_vignette-ReadLattes.R

@@ -19,7 +19,7 @@ f <- "~/Desktop/6915544029415506.zip"
 l_out <- gld_read_zip2(f)
 
 ## -----------------------------------------------------------------------------
-dplyr::glimpse(l_out)
+dplyr::glimpse(l_out$conferences)
 
 ## -----------------------------------------------------------------------------
 tpesq <- l.out$tpesq