[R-br] Extração de coordenadas e tempo em múltiplas imagens [RESOLVIDO]

[ASANTOS]

Éder, Perfeito!!!!!

      Apenas inclui: write.table(XYZ, file ="coordstime.mod", 
row.names=F,append=T), para que as informações das duas imagens ficassem 
armazenadas em um único arquivo,

Muito Obrigado,

Alexandre

CRM FINAL:


#<code r>
setwd('C:/LAB/RBASICS/tmp'); getwd()
require(raster); require(rgdal)

### Download a partir de uma lista de links
##############################################################################
### A opção "get link" gera algo como 
"https://www.dropbox.com/s/XXXXXX/file.png"
### para download.file() Use "XXXXXX/file.png" após 
"http://dl.dropbox.com/s/"
### XXXXXX = token

### links obtidos no seu script
links <- c(
"https://www.dropbox.com/s/8b99gn9ve1yo7is/Fig1-0_00_00.png",
"https://www.dropbox.com/s/8b99gn9ve1yo7is/Fig2-0_20_00.png", ### erro! 
mesmo token do anterior!
"https://www.dropbox.com/s/bo6gbt3ca6xwxm0/Fig3-0_40_00.png")

tokens    <- gsub("^.*/s/","",dirname(links))
fileNames <- basename(links)
newLinks  <- file.path("http://dl.dropbox.com/s", tokens, fileNames); 
newLinks

for (a in newLinks) {
           tryCatch(download.file(a, dest=basename(a), mode='wb'),
                               error=function(...) print("Falha no 
download!"))}

### Verificando arquivos baixados corretamente
##############################################################################
fileInfo  <- file.info(fileNames); fileInfo ### observe o segundo arquivo
files.OK  <- fileNames[fileInfo$size>0 & !is.na(fileInfo$size)]; files.OK

### Operando arquivos baixados corretamente
##############################################################################
for (b in files.OK) {
           t       <- strsplit(b,"-|\\.")[[1]][2]
           tempo   <- gsub("_", ":", t)
           r       <- raster(b); #image(r) ### comentado para otimizar
           XYZ     <- data.frame(coordinates(r), values(r), rep(tempo))
           XYZ.0   <- XYZ[XYZ[,3]==0,]
           outName <- paste0('XYZ.0-', t, '.txt')
           write.table(XYZ, file ="coordstime.mod", row.names=F,append=T)
           message(noquote(paste(outName, "salvo em", getwd())))
}
#</code>
Em 05/12/2013 16:27, Éder Comunello escreveu:
> Alexandre, boa tarde!
>
> Fiz algumas alterações em cima do seu CMR. Veja se há algo que possa 
> lhe servir.
>
> #<code r>
> setwd('C:/LAB/RBASICS/tmp'); getwd()
> require(raster); require(rgdal)
>
> ### Download a partir de uma lista de links
> ##############################################################################
> ### A opção "get link" gera algo como 
> "https://www.dropbox.com/s/XXXXXX/file.png"
> ### para download.file() Use "XXXXXX/file.png" após 
> "http://dl.dropbox.com/s/"
> ### XXXXXX = token
>
> ### links obtidos no seu script
> links <- c(
> "https://www.dropbox.com/s/8b99gn9ve1yo7is/Fig1-0_00_00.png",
> "https://www.dropbox.com/s/8b99gn9ve1yo7is/Fig2-0_20_00.png", ### 
> erro! mesmo token do anterior!
> "https://www.dropbox.com/s/bo6gbt3ca6xwxm0/Fig3-0_40_00.png")
>
> tokens    <- gsub("^.*/s/","",dirname(links))
> fileNames <- basename(links)
> newLinks  <- file.path("http://dl.dropbox.com/s", tokens, fileNames); 
> newLinks
>
> for (a in newLinks) {
> tryCatch(download.file(a, dest=basename(a), mode='wb'),
>           error=function(...) print("Falha no download!"))}
>
> ### Verificando arquivos baixados corretamente
> ##############################################################################
> fileInfo  <- file.info <http://file.info>(fileNames); fileInfo ### 
> observe o segundo arquivo
> files.OK  <- fileNames[fileInfo$size>0 & !is.na 
> <http://is.na>(fileInfo$size)]; files.OK
>
> ### Operando arquivos baixados corretamente
> ##############################################################################
> for (b in files.OK) {
>           t <- strsplit(b,"-|\\.")[[1]][2]
>           tempo <- gsub("_", ":", t)
>           r <- raster(b); #image(r) ### comentado para otimizar
>           XYZ <- data.frame(coordinates(r), values(r), rep(tempo))
>           XYZ.0 <- XYZ[XYZ[,3]==0,]
>           outName <- paste0('XYZ.0-', t, '.txt')
> write.table(XYZ, outName, row.names=F)
> message(noquote(paste(outName, "salvo em", getwd())))
> }
> #</code>
>
>
>
> Éder Comunello <c 
> <mailto:comunello.eder em gmail.com>omunello.eder em gmail.com 
> <mailto:omunello.eder em gmail.com>>
> Dourados, MS - [22 16.5'S, 54 49'W]
>
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.

-- 
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT                      CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM)   (+55) 65 9686-6970 (VIVO)
e-mails:alexandresantosbr em yahoo.com.br
         alexandre.santos em cas.ifmt.edu.br
Lattes: http://lattes.cnpq.br/1360403201088680
======================================================================

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20131205/a0fbc8de/attachment.html>