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 omunello.eder@gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]