<div dir="ltr">Senhores, bom dia!<div><br></div><div>Vou passar minha impressão como usuário Windows.<br><div><br></div><div>O que pude notar em relação ao Dropbox é que ele passou a forçar o uso do protocolo 'https' e isso trás implicações para usuários Windows que são ligeiramente diferentes para usuários Linux e Mac.</div>
<div><br></div><div>Utilizo <font face="courier new, monospace">R version 3.1.0 (2014-04-10) - Platform: x86_64-w64-mingw32/x64 (64-bit)</font>, e ainda nessa versão os links seguros precisam ser acessados pelo R utilizando <font face="courier new, monospace">internet2.dll</font>. Quem acompanhou a discussão sobre configuração de proxy, pode entender que isso pode dar uma certa dor de cabeça.</div>
<div><br></div><div>O fato é que uma vez que você estabelece <font face="courier new, monospace">setInternet2(TRUE)</font>, o<font face="courier new, monospace"> source() </font>funciona. Segue código abaixo.<br></div><div>
<br></div><div>Outra nota é que contas novas do Dropbox não dão mais direito à pastas públicas, a não ser que você opte pelo pacote PRO. Nesse caso deve-se usar a segunda forma do código que segue.<br></div><div><div><br>
</div><div><div><font face="courier new, monospace">### <code r></font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">###############################################################################</font></div>
<div><font face="courier new, monospace">### Duas formas de referenciar o mesmo arquivo em uma pasta pública do Dropbox</font></div><div><font face="courier new, monospace">###############################################################################</font></div>
<div><font face="courier new, monospace">URL1 <- '<a href="https://dl.dropboxusercontent.com/u/117618178/aac.R">https://dl.dropboxusercontent.com/u/117618178/aac.R</a>' ### Copy public link...</font></div><div>
<font face="courier new, monospace">URL2 <- '<a href="https://www.dropbox.com/s/qaqp8phnswqeeem/aac.R">https://www.dropbox.com/s/qaqp8phnswqeeem/aac.R</a>'     ### Share : Get link</font></div><div><font face="courier new, monospace"><br>
</font></div><div><font face="courier new, monospace">### A segunda forma precisa ter o link editado e é o mesmo procedimento </font></div><div><font face="courier new, monospace">### utilizado quando você não tem uma pasta pública.</font></div>
<div><font face="courier new, monospace">URL2a <- gsub("^.*/s/", "<a href="http://dl.dropbox.com/s/">http://dl.dropbox.com/s/</a>", URL2)</font></div><div><font face="courier new, monospace"><br></font></div>
<div><font face="courier new, monospace">### Notei que o Dropbox passou a "forçar" o uso do protocolo 'https' apesar de</font></div><div><font face="courier new, monospace">### permitir o link com 'http'</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">###############################################################################</font></div><div><font face="courier new, monospace">### Tentativa de uso do source()</font></div>
<div><font face="courier new, monospace">###############################################################################</font></div><div><font face="courier new, monospace">source(URL1)</font></div><div><font face="courier new, monospace"># Error in file(filename, "r", encoding = encoding) : </font></div>
<div><font face="courier new, monospace">#   cannot open the connection</font></div><div><font face="courier new, monospace"># In addition: Warning message:</font></div><div><font face="courier new, monospace"># In file(filename, "r", encoding = encoding) : unsupported URL scheme</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">source(URL2a)</font></div><div><font face="courier new, monospace"># Error in file(filename, "r", encoding = encoding) : </font></div>
<div><font face="courier new, monospace">#   cannot open the connection</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### Apesar dos erros acima, o arquivo pode ser acessado com browseURL() se seu navegador é o Internet Explorer ou utiliza internet2.dll.</font></div>
<div><font face="courier new, monospace"># browseURL(URL1)</font></div><div><font face="courier new, monospace"># browseURL(URL2a)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">###############################################################################</font></div>
<div><font face="courier new, monospace">### Uso de internet2.dll no R</font></div><div><font face="courier new, monospace">###############################################################################</font></div><div>
<font face="courier new, monospace">setInternet2(NA)</font></div><div><font face="courier new, monospace"># [1] FALSE</font></div><div><font face="courier new, monospace">### O padrão no Windows é estar desativado no R Console e ativo no RStudio.</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### Ativando internet2.dll</font></div><div><font face="courier new, monospace">### Caso inicie antes de tentar acessar a web, não aparecerá o aviso abaixo ('warning')</font></div>
<div><font face="courier new, monospace">setInternet2(TRUE)</font></div><div><font face="courier new, monospace"># In setInternet2(TRUE) : internet routines were already initialized</font></div><div><font face="courier new, monospace"><br>
</font></div><div><font face="courier new, monospace">### Nova tentativa de uso do source() desta vez usando internet2.dll</font></div><div><font face="courier new, monospace">source(URL1)</font></div><div><font face="courier new, monospace">ls()</font></div>
<div><font face="courier new, monospace"># [1] "aac"   "URL1"  "URL2"  "URL2a"</font></div><div><font face="courier new, monospace">### Sucesso!</font></div><div><font face="courier new, monospace"><br>
</font></div><div><font face="courier new, monospace">rm(aac)</font></div><div><font face="courier new, monospace">source(URL2a)</font></div><div><font face="courier new, monospace">ls()</font></div><div><font face="courier new, monospace"># [1] "aac"   "URL1"  "URL2"  "URL2a"</font></div>
<div><font face="courier new, monospace">### Sucesso!</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### </code></font></div></div><div class="gmail_extra">
<br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br>
</div></div>
<br><br><div class="gmail_quote"><br></div></div></div></div></div>