rusp_tab.R

#' faz o download de uma tabela do Anuário Estatístico da USP
#' secao: numero da secao (1 a 11)
#' id: id da tabela (depende da secao)
#' retorna um data.frame com os dados.
rusp_tab <- function(secao, id) {
  link <- sprintf("https://uspdigital.usp.br/anuario/br/tabelas/XLS/2013/T%d.%02d.xls", secao, id)
  cat('Acessando ', link, '...\n', sep='')
  tmp <- tempfile()
  r <- RCurl::getBinaryURL(link, ssl.verifypeer=FALSE, encoding='latin1')
  writeBin(as.vector(r), tmp)
  a <- gdata::read.xls(tmp, stringsAsFactors=FALSE, encoding='latin1')
  a <- a[which(a[,2]!=''),]
  names(a) <- tolower(gsub('[./, ]+', '_', gsub("`|\\'", "", iconv(a[1,], to = "ASCII//TRANSLIT"))))
  a <- a[-1,]
  for(n in names(a)) {
    a[[n]] <- type.convert(a[[n]], as.is=T)
  }
  return(a)
}