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

[Éder Comunello]

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(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, outName, row.names=F)
          message(noquote(paste(outName, "salvo em", getwd())))
}
#</code>



Éder Comunello <c <comunello.eder em gmail.com>omunello.eder em gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20131205/e781a1a6/attachment.html>