<div>Olá, pessoal!</div><div><br></div><div>Tentei dar um 'up' no CMR, seguindo a dica do Walmes...</div><div><br></div><div>###############################</div><div><br></div><div>#install.packages(c("geoR", maptools", "sp"), dep=T)<br>
</div><div>require(geoR); require(maptools); require(sp)</div><div><br></div><div>### download direto! ;D<br></div><div>### joga na pasta/dir de trabalho ativa</div><div>download.file('<a href="http://dl.dropbox.com/u/117618178/ctba/bairros.shp">http://dl.dropbox.com/u/117618178/ctba/bairros.shp</a>', </div>
<div>              paste(getwd(),'bairros.shp',sep='/'), mode='wb')</div><div>download.file('<a href="http://dl.dropbox.com/u/117618178/ctba/bairros.dbf">http://dl.dropbox.com/u/117618178/ctba/bairros.dbf</a>', </div>
<div>              paste(getwd(),'bairros.dbf',sep='/'), mode='wb')</div><div>download.file('<a href="http://dl.dropbox.com/u/117618178/ctba/bairros.shx">http://dl.dropbox.com/u/117618178/ctba/bairros.shx</a>', </div>
<div>              paste(getwd(),'bairros.shx',sep='/'), mode='wb')</div><div><br></div><div>ctba <- readShapePoly("bairros.shp", IDvar="CODE")</div><div>slotNames(ctba)</div>
<div><br></div><div>npol <- as.integer(length(ctba@polygons)) ### numero de poligonos</div><div><br></div><div>for (i in 1:npol){</div><div>          nsubpol <- length(ctba@polygons[[i]]@Polygons) ### numero de poligonos internos</div>
<div>          for (ii in 1:nsubpol){</div><div>                    pol <- ctba@polygons[[i]]@Polygons[[ii]]@coords</div><div>                    assign(paste("P",formatC(i, flag=0, width=3),ii,sep="-"),pol)</div>
<div>}</div><div>}</div><div><br></div><div>### unir todos os poligonos e então exporta uma borda unica</div><div>gpclibPermit() ## para permitir unionSpatialPolygons</div><div>borda.spol <- (unionSpatialPolygons(ctba, ID=rep(1, length(ctba)), avoidGEOS=T))</div>
<div>borda <- data.frame(borda.spol@polygons[[1]]@Polygons[[1]]@coords)</div><div><br></div><div>###############################<br></div><div><br></div><div>Observações sobre o download.file() e Dropbox<br></div><div>
1) arquivos locados em um subdiretório da pasta 'Public';</div><div>2) funcionou tanto com http quanto https;</div><div>3) precisei definir mode='wb' (modo binário) para não corromper os arquivos na gravação.</div>
<div><br></div><div><div>R version 2.15.2 (2012-10-26)</div><div>Platform: x86_64-w64-mingw32/x64 (64-bit)</div></div><div><br></div>-- <br><font face="arial, helvetica, sans-serif"><br><span style="font-size:small">================================================</span><br>
Éder Comunello<br><br>Ph.D. Student in Agricultural Systems Engineering (USP/ESALQ)<br>Piracicaba, SP, Brazil [22 42.7'S, 47 37.8'W]<br><br>Researcher at Embrapa Western Region Agriculture</font><div><font face="arial, helvetica, sans-serif">Dourados, MS, Brazil [</font>22 16.5'S, 54 49.0'W<span style="font-family:arial,helvetica,sans-serif">]</span></div>
<div><font face="arial, helvetica, sans-serif"><span style="font-size:small">================================================</span><br>UTC-03:00</font></div><br>