É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@gmail.com>omunello.eder@gmail.com <mailto:omunello.eder@gmail.com>> Dourados, MS - [22 16.5'S, 54 49'W]
_______________________________________________ R-br mailing list R-br@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@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================