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
##############################################################################
### XXXXXX = token
### links obtidos
no seu script
links <- c(
tokens <-
gsub("^.*/s/","",dirname(links))
fileNames <-
basename(links)
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>
