[R-br] Problema em abrir conexão com source() do Dropbox/Public

[Éder Comunello]

Senhores, bom dia!

Vou passar minha impressão como usuário Windows.

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.

Utilizo R version 3.1.0 (2014-04-10) - Platform: x86_64-w64-mingw32/x64
(64-bit), e ainda nessa versão os links seguros precisam ser acessados pelo
R utilizando internet2.dll. Quem acompanhou a discussão sobre configuração
de proxy, pode entender que isso pode dar uma certa dor de cabeça.

O fato é que uma vez que você estabelece setInternet2(TRUE), o
source() funciona.
Segue código abaixo.

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.

### <code r>

###############################################################################
### Duas formas de referenciar o mesmo arquivo em uma pasta pública do
Dropbox
###############################################################################
URL1 <- 'https://dl.dropboxusercontent.com/u/117618178/aac.R' ### Copy
public link...
URL2 <- 'https://www.dropbox.com/s/qaqp8phnswqeeem/aac.R'     ### Share :
Get link

### A segunda forma precisa ter o link editado e é o mesmo procedimento
### utilizado quando você não tem uma pasta pública.
URL2a <- gsub("^.*/s/", "http://dl.dropbox.com/s/", URL2)

### Notei que o Dropbox passou a "forçar" o uso do protocolo 'https' apesar
de
### permitir o link com 'http'

###############################################################################
### Tentativa de uso do source()
###############################################################################
source(URL1)
# Error in file(filename, "r", encoding = encoding) :
#   cannot open the connection
# In addition: Warning message:
# In file(filename, "r", encoding = encoding) : unsupported URL scheme

source(URL2a)
# Error in file(filename, "r", encoding = encoding) :
#   cannot open the connection

### Apesar dos erros acima, o arquivo pode ser acessado com browseURL() se
seu navegador é o Internet Explorer ou utiliza internet2.dll.
# browseURL(URL1)
# browseURL(URL2a)

###############################################################################
### Uso de internet2.dll no R
###############################################################################
setInternet2(NA)
# [1] FALSE
### O padrão no Windows é estar desativado no R Console e ativo no RStudio.

### Ativando internet2.dll
### Caso inicie antes de tentar acessar a web, não aparecerá o aviso abaixo
('warning')
setInternet2(TRUE)
# In setInternet2(TRUE) : internet routines were already initialized

### Nova tentativa de uso do source() desta vez usando internet2.dll
source(URL1)
ls()
# [1] "aac"   "URL1"  "URL2"  "URL2a"
### Sucesso!

rm(aac)
source(URL2a)
ls()
# [1] "aac"   "URL1"  "URL2"  "URL2a"
### Sucesso!

### </code>

Éder Comunello <c <comunello.eder em gmail.com>omunello.eder em gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140701/b7a9f6ab/attachment.html>