R/completar.R

In mnunes/reembolsos: Dados de Reembolsos Pedidos pelos Deputados Federais Brasileiros

completar <- function(){

  pacotes <- installed.packages()

  index <- which(rownames(pacotes) == "reembolsos")

  folder <- paste(pacotes[index, 2], "/reembolsos", sep="")

  download.file("https://marcusnunes.me/data/Rdata.rdb",
                destfile = paste(folder, "/Rdata.rdb", sep = ""))
  download.file("https://marcusnunes.me/data/Rdata.rds",
                destfile = paste(folder, "/Rdata.rds", sep = ""))
  download.file("https://marcusnunes.me/data/Rdata.rdx",
                destfile = paste(folder, "/Rdata.rdx", sep = ""))

}