library(getLattes)
length(xmlsLattes)
library(dplyr)
getDadosGerais(xmlsLattes[[2]])
lt <- lapply(xmlsLattes, getDadosGerais)
head(bind_rows(lt))
getArtigosPublicados(xmlsLattes[[2]])
lt <- lapply(xmlsLattes, getArtigosPublicados)
head(bind_rows(lt))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.