lgelape

# Funcao getTse, desenvolvida por Leonardo Barone (https://gist.github.com/leobarone/d1ee4bc1e883ee0deb0a9932943adafb)
# Inclui a funcao neste gist pois o arquivo do Leonardo continha um exemplo ao final,
# e eu queria somente uma fonte de amplo acesso para puxar a funcao diretamente

getTse<-function(link){
  
  # Cria um nome temporario que o arquivo baixado recebera
  
  pasta.temporaria = file.path(getwd(), "/temp_folder")
  dir.create(pasta.temporaria)