<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=utf-8" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.19412">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial>Só vale para o Dropbox? Como ficaria no "mega.co.nz", que
é o que eu uso? Já usei o datafile host também.</FONT></DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
<DIV>Isso não vai ler o arquivo, mas vai salva-lo no diretório de
trabalho:</DIV>
<DIV dir=ltr>
<DIV>Talvez alguem possa modificar a função para ler o arquivo na
memória.</DIV>
<DIV><FONT size=2 face=Arial></FONT><BR></DIV>
<DIV>
<DIV>get.dropbox <- function(file, token) {</DIV>
<DIV> require(RCurl, quietly=TRUE)</DIV>
<DIV> bin <- getBinaryURL(paste0("<A
href="https://dl.dropboxusercontent.com/u/">https://dl.dropboxusercontent.com/u/</A>",
token, "/", file),</DIV>
<DIV> ssl.verifypeer = FALSE)</DIV>
<DIV> con <- file(file, open = "wb")</DIV>
<DIV> writeBin(bin, con)</DIV>
<DIV> close(con)</DIV>
<DIV> message(noquote(paste(file, "read
into", getwd())))
</DIV>
<DIV> }</DIV>
<DIV><FONT size=2 face=Arial></FONT><BR></DIV>
<DIV># teste</DIV>
<DIV>get.dropbox("descarga.csv", "755659")</DIV>
<DIV># ler na mem</DIV>
<DIV><SPAN style="FONT-FAMILY: arial,sans-serif; FONT-SIZE: 13px">dat.desc1
<- read.delim("</SPAN><A
style="FONT-FAMILY: arial,sans-serif; FONT-SIZE: 13px"
href="http://dl.dropbox.com/u/755659/descarga.csv"
target=_blank>descarga.csv</A><SPAN
style="FONT-FAMILY: arial,sans-serif; FONT-SIZE: 13px">",</SPAN><SPAN
style="FONT-FAMILY: arial,sans-serif; FONT-SIZE: 13px">sep=",") </SPAN><BR></DIV>
<DIV><FONT size=2 face=Arial></FONT><BR></DIV>
<DIV><FONT size=2 face=Arial></FONT><BR></DIV></DIV></DIV>
<DIV class=gmail_extra><FONT size=2
face=Arial></FONT><BR><BR> </DIV></BLOCKQUOTE></BODY></HTML>