R - Obtendo dados

downloadAndGetData.R

#Obtendo dados com o R

pathName = "C:/Users/logonrmlocal/Documents/Aula/data";

#Download 
dir.create(pathName)
file.url = 'http://www.bcb.gov.br/pec/Indeco/Port/IE1-04.xlsx'
file.local = file.path('./Aula/data', basename(file.url))
download.file(url = file.url, destfile = file.local , mode='wb')

#Function Download
funcDownload = function(link){
  
  if(!file.exists(pathName)){
    dir.create(pathName)
  }
  
  file.local = file.path('./Aula/data', basename(link))
  download.file(url = link, destfile = file.local , mode='wb')
}

funcDownload("https://raw.githubusercontent.com/elthonf/fiap-mba-r/master/data/Copas.csv")
funcDownload("https://raw.githubusercontent.com/elthonf/fiap-mba-r/master/data/Copas-Partidas.csv")
funcDownload("https://raw.githubusercontent.com/elthonf/fiap-mba-r/master/data/Copas-Jogadores.csv")


#Read File
copasRead = read.table('Aula/data/Copas.csv')

library(readr)
Copas <- read_csv("Aula/data/Copas.csv")
View(Copas)

partidas = read.table('Aula/data/Copas-Partidas.csv',fill = TRUE)
#Fill corrige campos nao preenchidos
View(partidas)