Re: [R-br] extrair bordas de arquivos .shp

Minha contribuição é no sentido de tornar o CMR mais reproduzível. Para
fazer o downloaddos arquivos pode-se usar a função download.file().

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

> download.file("https://dl.dropbox.com/u/117618178/ctba/bairros.shp",
+               destfile="/home/walmes/Downloads/bairros.shp")
Erro em download.file("https://dl.dropbox.com/u/117618178/ctba/bairros.shp",
 :
  esquema de URL não suportado
>
> download.file("http://www.leg.ufpr.br/~walmes/data/pimentel_racoes.txt",
+               destfile="/home/walmes/Downloads/pimentel_racoes.txt")
tentando a URL 'http://www.leg.ufpr.br/~walmes/data/pimentel_racoes.txt'
Content type 'text/plain' length 217 bytes
URL aberta
==================================================
downloaded 217 bytes

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

# prefixo
pre <- "http://www.leg.ufpr.br/~walmes/data/"

# sufixo
pos <- c("pimentel_racoes.txt", "pimentel_mandioca.txt")

# concatena
links <- paste(pre, pos, sep="")

# cria diretório
dest <- paste(tempdir(), "/", basename(links), sep=""); dest

# faz o serviço
mapply(download.file, url=links, destfile=dest)

# importa
lidos <- lapply(dest, read.table, sep="\t", header=TRUE)
str(lidos)

À disposição.
Walmes.

==========================================================================
Walmes Marques Zeviani
LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)
Departamento de Estatística - Universidade Federal do Paraná
fone: (+55) 41 3361 3573
VoIP: (3361 3600) 1053 1173
e-mail: walmes@ufpr.br
skype: walmeszeviani
twitter: @walmeszeviani
homepage: http://www.leg.ufpr.br/~walmes
linux user number: 531218
==========================================================================