### script para criar paginas com relatorios loc <- "~/Projetos/FUNDECITRUS/msc/relat-2006/scripts/" loc.map <- "~/Projetos/FUNDECITRUS/msc/relat-2006/dados/mapasCorrigidos-csv/" loc.rls <- "~/webfundecitrus/msc/relats/" info <- read.csv2("dados/infoMapas/infoMapas.csv") names(info) head(info) n.map <- nrow(info) ucod <- 0 nplt <- integer(n.map) for (i in 1:n.map) { dmap <- as.matrix(read.csv(paste(loc.map,"mapa", i, ".csv", sep=""))) u.ant <- ucod ucod <- unique(c(u.ant, unique(dmap))) if (length(u.ant)1) for (i in 2:n.av) obj[,,i] <- as.matrix(read.csv(paste(loc.map,'mapa', info[id[i],1],'.csv',sep=""))) attributes(obj) <- c(attributes(obj), lapply(info[id[1], c(3:6,8,9,10)], as.character)) class(obj) <- c("citrus", "array") dimnames(obj) <- list(NULL, NULL, eval=dates) names(attributes(obj)) <- c("dim", "Municipio", "Propriedade", "Talhao", "Copa", "EntreLinhas", "DentroLinhas", "Plantio", "class", "dimnames") print(dim(obj)) a.obj <- change.code(obj, c("0B", "M", 'F', ' 0', ' 1', ' 2', 'G', ' 3', 'P'), c(0, 0, 0, 0, 1, 2, 0, 3, 0)) obj <- citrus.conv(a.obj, "geo") obj$data <- apply(obj$data, 2, as.numeric) a.obj <- citrus.conv(obj, "array") system(paste("mkdir ", loc.rls, utalh[th], sep="")) setwd(paste(loc.rls, utalh[th], sep="")) Sweave(paste(loc, "index.Rnw", sep="")) system("cp ~/bin/harvard.sty .") setwd(paste(loc.rls, utalh[th], sep="")) system('htlatex index "html,2,info" "" ') system("rm *ps") system("~/bin/rmtex") print(paste("Talhao", th, "OK!")) }