In jtrecenti/teses.usp:

library(teses.usp)
library(dplyr)
links <- baixar_links()
teses_usp <- baixar_teses(links$link)

teses_usp %>% filter(documento == 'erro') %>% with(link)

teses_usp <- teses_usp %>%
  select(link:unidade_da_usp, -um) %>%
  filter(documento != 'erro')

jtrecenti/teses.usp documentation built on May 20, 2019, 3:18 a.m.