<div><font face="trebuchet ms,sans-serif">Minha contribuição é no sentido de tornar o CMR mais reproduzível. Para fazer o downloaddos arquivos pode-se usar a função </font><span style="font-family:'trebuchet ms',sans-serif">download.file().</span></div>
<div><font face="trebuchet ms, sans-serif"><br></font></div><div><font face="trebuchet ms, sans-serif">Assim, só com copia e cola do código baixamos os arquivis, sem por a mão no mouse, mais rápido. Deveria dar certo assim</font></div>
<div><font face="trebuchet ms, sans-serif"><br></font></div><div><div><div><font face="courier new, monospace" color="#000099">> download.file("<a href="https://dl.dropbox.com/u/117618178/ctba/bairros.shp">https://dl.dropbox.com/u/117618178/ctba/bairros.shp</a>",</font></div>
<div><font face="courier new, monospace" color="#000099">+ destfile="/home/walmes/Downloads/bairros.shp")</font></div><div><font face="courier new, monospace" color="#000099">Erro em download.file("<a href="https://dl.dropbox.com/u/117618178/ctba/bairros.shp">https://dl.dropbox.com/u/117618178/ctba/bairros.shp</a>", : </font></div>
<div><font face="courier new, monospace" color="#000099"> esquema de URL não suportado</font></div><div><font face="courier new, monospace" color="#000099">> </font></div><div><font face="courier new, monospace" color="#000099">> download.file("<a href="http://www.leg.ufpr.br/~walmes/data/pimentel_racoes.txt">http://www.leg.ufpr.br/~walmes/data/pimentel_racoes.txt</a>",</font></div>
<div><font face="courier new, monospace" color="#000099">+ destfile="/home/walmes/Downloads/pimentel_racoes.txt")</font></div><div><font face="courier new, monospace" color="#000099">tentando a URL '<a href="http://www.leg.ufpr.br/~walmes/data/pimentel_racoes.txt">http://www.leg.ufpr.br/~walmes/data/pimentel_racoes.txt</a>'</font></div>
<div><font face="courier new, monospace" color="#000099">Content type 'text/plain' length 217 bytes</font></div><div><font face="courier new, monospace" color="#000099">URL aberta</font></div><div><font face="courier new, monospace" color="#000099">==================================================</font></div>
<div><font face="courier new, monospace" color="#000099">downloaded 217 bytes</font></div></div><div style="font-family:'trebuchet ms',sans-serif"><br></div><div style="font-family:'trebuchet ms',sans-serif">
Mas a mensagem de erro mostra que estou errado. O Benilton comentou que o arquivo deveria estar na pasta 'public' do dropbox, tem relação com "https" também, tá no passado da lista isso aí. Não sei se é o caso. Mas a importação que fiz de dados no domínio LEG deu certo. Para ficar ainda mais reproduzível, você joga os aquivos num diretório temporário (windows e linux tem padrões diferentes para acesso à diretórios, isso elimina as diferenças). Além do mais, você pode fazer para vários arquivos ao mesmo tempo, como é o caso, e aí isso é um trabalho para família *apply(). Vejam</div>
<div style="font-family:'trebuchet ms',sans-serif"><br></div><div><div><font color="#000099" face="courier new, monospace"># prefixo</font></div><div><font color="#000099" face="courier new, monospace">pre <- "<a href="http://www.leg.ufpr.br/~walmes/data/">http://www.leg.ufpr.br/~walmes/data/</a>"</font></div>
<div><font color="#000099" face="courier new, monospace"><br></font></div><div><font color="#000099" face="courier new, monospace"># sufixo</font></div><div><font color="#000099" face="courier new, monospace">pos <- c("pimentel_racoes.txt", "pimentel_mandioca.txt")</font></div>
<div><font color="#000099" face="courier new, monospace"><br></font></div><div><font color="#000099" face="courier new, monospace"># concatena</font></div><div><font color="#000099" face="courier new, monospace">links <- paste(pre, pos, sep="")</font></div>
<div><font color="#000099" face="courier new, monospace"><br></font></div><div><font color="#000099" face="courier new, monospace"># cria diretório</font></div><div><font color="#000099" face="courier new, monospace">dest <- paste(tempdir(), "/", basename(links), sep=""); dest</font></div>
<div><font color="#000099" face="courier new, monospace"><br></font></div><div><font color="#000099" face="courier new, monospace"># faz o serviço</font></div><div><font color="#000099" face="courier new, monospace">mapply(download.file, url=links, destfile=dest)</font></div>
<div><font color="#000099" face="courier new, monospace"><br></font></div><div><font color="#000099" face="courier new, monospace"># importa</font></div><div><font color="#000099" face="courier new, monospace">lidos <- lapply(dest, read.table, sep="\t", header=TRUE)</font></div>
<div><font color="#000099" face="courier new, monospace">str(lidos)</font></div><div style="font-family:'trebuchet ms',sans-serif"><br></div></div><div style="font-family:'trebuchet ms',sans-serif">À disposição.</div>
</div><font face="trebuchet ms,sans-serif"><div><font face="trebuchet ms,sans-serif">Walmes.</font></div><div><br></div></font><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Walmes Marques Zeviani</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">fone: (+55) 41 3361 3573</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">VoIP: (3361 3600) 1053 1173</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a><br>
skype: walmeszeviani<br style="font-family:trebuchet ms,sans-serif"></span><span style="font-family:trebuchet ms,sans-serif">twitter: @walmeszeviani</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">linux user number: 531218</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br>