<html><head></head><body><div class="ydpf430d47eyahoo-style-wrap" style="font-family:Helvetica Neue, Helvetica, Arial, sans-serif;font-size:13px;"><div><div>se você for usar apenas em ambiente R, a melhor opção é usar save(...). Frequentemente uso com compress='xz'.<br></div><div><br></div><div class="ydpf430d47esignature">Elias T. Krainski</div></div>
<div><br></div><div><br></div>
</div><div id="yahoo_quoted_8407030181" class="yahoo_quoted">
<div style="font-family:'Helvetica Neue', Helvetica, Arial, sans-serif;font-size:13px;color:#26282a;">
<div>
Em terça-feira, 15 de janeiro de 2019 11:30:21 BRST, Yury Duarte por (R-br) <r-br@listas.c3sl.ufpr.br> escreveu:
</div>
<div><br></div>
<div><br></div>
<div><div id="yiv0746425720"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr">Bom dia colegas listeiros!<div><br></div><div>Ultimamente venho tentando manusear arquivos espaciais utilizando o R.</div><div>Em alguns casos, objetos do tipo 'large SpatialPolygons' são gerados dentro do código. Quando isso ocorre (acredito que seja algo que acontece por padrão, devido a grande quantidade de informações armazenadas no objeto), a função writeOGR, que utilizo para salvar os shapefiles, quebra, por só tratar de objetos do tipo 'Spatial' e não os 'large Spatial'.<br>Sendo assim, gostaria de saber se existe a possibilidade de salvar um shapefile a partir de um objeto do tipo 'large Spatial' ou ainda se existe a possibilidade de transformar esse num objeto do tipo SpatialPolygonsDataFrame, para que a função writeOGR possa funcionar normalmente.</div><div><br></div><div>Segue código desenvolvido seguido do erro gerado. <br>Desde já, agradeço pela ajuda de todos!</div><div><br></div><div><div>rodar_bibliotecas = function(necessarias_para_o_projeto){</div><div> </div><div> if(necessarias_para_o_projeto){</div><div> library(rgrass7)</div><div> library(spatstat) </div><div> library(maptools) </div><div> library(shapefiles)</div><div> library(foreign)</div><div> library(magrittr)</div><div> library(formattable)</div><div> library(e1071)</div><div> library(rlang)</div><div> library(rgdal)</div><div> library(rgeos)</div><div> library(raster)</div><div> library(sp)</div><div> library(sf)</div><div> library(RcppCNPy)</div><div> library(deldir)</div><div> library(dismo)</div><div> library(dplyr)</div><div> library(ggplot2)</div><div> library(gstat)</div><div> library(tidyverse)</div><div> library(smoothr)</div><div> library(viridisLite)</div><div> }</div><div> return('Ok')</div><div>}</div></div><div><br></div><div><div>rodar_bibliotecas(TRUE)</div><div><br></div><div>raiz = '/home/yury/pesquisa/arquivos/areas/'</div><div>clientes = dir(raiz)</div><div><br></div><div>for (cliente in 1:length(clientes)) {</div><div> </div><div> analises = dir(paste0(raiz, clientes[cliente]))</div><div> q = list()</div><div> </div><div> for (analise in 1:length(analises)) {</div><div> </div><div> shapefile_contorno = readOGR(paste0(raiz, clientes[cliente], '/', analises[analise], '/', 'vetores.shp'))</div><div> shapefile_contorno$id = 1</div><div> dissolvido = unionSpatialPolygons(shapefile_contorno, IDs = shapefile_contorno$id)</div><div> #plot(dissolvido)</div><div> </div><div> q[analise] = dissolvido</div><div> </div><div> }</div><div> </div><div> fim = q[[1]]</div><div> for (x in 2:length(q)){</div><div> </div><div> fim = bind(fim, q[[x]])</div><div> </div><div> }</div><div>plot(fim)</div><div><br></div><div>path_to_save = paste0(raiz, clientes[cliente])</div><div>writeOGR(fim,</div><div> dsn = path_to_save,</div><div> layer = paste0('contorno_', clientes[cliente]),</div><div> driver = 'ESRI Shapefile',</div><div> overwrite_layer = TRUE)</div><div><br></div><div>}</div></div><div><span style="color:rgb(197,6,11);font-size:10.4pt;white-space:pre-wrap;"><br></span></div><div><span style="color:rgb(197,6,11);font-size:10.4pt;white-space:pre-wrap;">Error in writeOGR(fim, dsn = path_to_save, layer = paste0("contorno_", : obj must be a SpatialPointsDataFrame, SpatialLinesDataFrame or SpatialPolygonsDataFrame</span><br></div><div><br clear="all"><div><div dir="ltr" class="yiv0746425720gmail_signature"><div dir="ltr"><div>Yury Duarte<br></div>Engenheiro Agrônomo - ESALQ/USP<br></div></div></div></div></div></div></div></div></div>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</div>
</div>
</div></body></html>