Olá, pessoal!

Tentei dar um 'up' no CMR, seguindo a dica do Walmes...

###############################

#install.packages(c("geoR", maptools", "sp"), dep=T)

require(geoR); require(maptools); require(sp)

### download direto! ;D

### joga na pasta/dir de trabalho ativa

download.file('http://dl.dropbox.com/u/117618178/ctba/bairros.shp', 

              paste(getwd(),'bairros.shp',sep='/'), mode='wb')

download.file('http://dl.dropbox.com/u/117618178/ctba/bairros.dbf', 

              paste(getwd(),'bairros.dbf',sep='/'), mode='wb')

download.file('http://dl.dropbox.com/u/117618178/ctba/bairros.shx', 

              paste(getwd(),'bairros.shx',sep='/'), mode='wb')

ctba <- readShapePoly("bairros.shp", IDvar="CODE")

slotNames(ctba)

npol <- as.integer(length(ctba@polygons)) ### numero de poligonos

for (i in 1:npol){

          nsubpol <- length(ctba@polygons[[i]]@Polygons) ### numero de poligonos internos

          for (ii in 1:nsubpol){

                    pol <- ctba@polygons[[i]]@Polygons[[ii]]@coords

                    assign(paste("P",formatC(i, flag=0, width=3),ii,sep="-"),pol)

}

}

### unir todos os poligonos e então exporta uma borda unica

gpclibPermit() ## para permitir unionSpatialPolygons

borda.spol <- (unionSpatialPolygons(ctba, ID=rep(1, length(ctba)), avoidGEOS=T))

borda <- data.frame(borda.spol@polygons[[1]]@Polygons[[1]]@coords)

###############################

Observações sobre o download.file() e Dropbox

1) arquivos locados em um subdiretório da pasta 'Public';

2) funcionou tanto com http quanto https;

3) precisei definir mode='wb' (modo binário) para não corromper os arquivos na gravação.

Dourados, MS, Brazil [22 16.5'S, 54 49.0'W]