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>
