} else{
dir.create(paste0(dir_salida,provincia))
writeRaster(capa_clip, filename = paste0(dir_salida,provincia,"/",provincia,"_",anio,trimestre,".tif"),format='GTiff')
}
}
}
end_time = Sys.time()
print(end_time - start_time)
}
x
source("//imgwebserver/PROYECTOS/MITECO/LULUCF/PRODUCCION_LULUCF21/03_Scripts/Mosaico_Recorte_Provincia.R", echo=TRUE)
require(rgdal)
source("//imgwebserver/PROYECTOS/MITECO/LULUCF/PRODUCCION_LULUCF21/03_Scripts/Mosaico_Recorte_Provincia.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/LULUCF/PRODUCCION_LULUCF21/03_Scripts/Mosaico_Recorte_Provincia.R", echo=TRUE)
require(sf)
salida <- "D:/PRUEBAS/apanio_pedro/"
#########################################################################################################
#ZNT
path <- "//Imgwebserver/proyectos/FEGA/AMS/2024_AMS/JEG/ZNT/LIMITES"
huso <- "/UTM29/"
f <- "/LIMITES_CAPTURA_ETRS89-UTM29.shp"
#Formo la ruta de la capa:
capa <- paste0(path,huso,f)
#Cargo la capa:
capa_2 <- st_read(capa)
id <- list(capa_2$Id)
#df vacio
df2 <- data.frame(id=numeric(),
area_km2=numeric(),
zona = character(),
xmin = numeric(),
ymin = numeric(),
xmax = numeric(),
ymax = numeric(),
stringsAsFactors=FALSE)
ids <- length(capa_2$Id)
for(i in 1:ids){
fila_vec <- capa_2[capa_2$Id == capa_2$Id[i],]
fila_ext <- st_bbox(fila_vec)
print(fila_ext)
fila_ext_df <- c(fila_ext[1],fila_ext[2],fila_ext[3],fila_ext[4])
fila_ext_df <- as.data.frame(fila_ext_df)
fila_ext_df <- t(fila_ext_df)
#fila_df <- as.data.frame(fila)
#fila_id <- select(fila, Id, AREA_KM2, ZONA)
fila_vec_df <- as.data.frame(fila_vec)
fila <- fila_vec_df[,-ncol(fila_vec_df)]
fila_f <- cbind(fila,fila_ext_df)
df2 <- rbind(df2,fila_f)
}
write.csv2(df2, paste0(salida,"LIMITES_CAPTURA_ETRS89-UTM29.csv"))
#library(gdalUtils)
#require(rgdal)
#library(stars)
library(sf)
library(raster)
#library(exactextractr)
#library(cluster)
library(tidyverse)
library(DBI)
library(RPostgres)
# 2.0 Parametros de conexion a PostgreSQL
dvr_ <- RPostgres::Postgres()
db_ <- 'eikos_trabajo_2022'  ##Nombre de la BBDD
host_db_ <- '172.17.12.4'
db_port_ <- '5433'
db_user_ <- 'teledeteccion'  ##Tu usuario
db_password_<- 'teledeteccion-2023-dev' ##Tu contrasena
schema <-"-c search_path=tel_anomalias"
# 3.0 Conexion
con <- dbConnect(dvr_, dbname = db_, host=host_db_, port=db_port_,
user=db_user_, password=db_password_, options= schema)
# 4.0 Listado de tablas de la Base de Datos
dbListTables(con)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/2_Validacion/EliminarImgs.R", echo=TRUE)
#################################################################################################################################################
#Descripcion: Script para generar el hidroperiodo de la serie histórica y del año en curso.
#Autor: Mario Suarez Rodriguez
#################################################################################################################################################
#LIBRERIAS ######################################################################################################################################
library("raster")
library ("rgdal")
library("stringr")
#VARIABLES A EDITAR######################################################################
tiempo_23<-"2023"
proj<-"+init=EPSG:25829"   #!!!!   IMPORTANTE  ¡¡¡¡
lista_meses_num<-list("01","02","03","04","05","06","07","08","09","10","11","12")
lista_anios<-list("_1984","_1985","_1986","_1987","_1988","_1989","_1990","_1991","_1992","_1993","_1994","_1995","_1996","_1997",
"_1998","_1999","_2000","_2001","_2002","_2003","_2004","_2005","_2006","_2007","_2008","_2009","_2010","_2011",
"_2012","_2013","_2014","_2015","_2016","_2017","_2018","_2019","_2020","_2021","_2022","2023")
#carpeta_hist<-"COB_VIEJA/H30"
carpeta_curso<-"CURSO/H29"
path_hist<-paste0("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/7_Reprocesado/",carpeta_hist)
path_curso<-paste0("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/7_Reprocesado/",carpeta_curso)
setwd(path_hist)
# FUNCIONES ############################################################################
hp <- function(lista,lago,mes,tiempo,salida){
st<-stack(lista)
s<-sum(st) #sumatorio de todos los rasters
p<-(s/length(lista))*100  #calculo de un porcentaje
r_df <- c(-Inf, 50, 0,
50, Inf, 1) #cadena definiendo los valores de la reclass
#Matriz de clasificacion.
r_m <- matrix(r_df,
ncol = 3,
byrow = TRUE) #PONER TRUE SI QUIERO QUE NO COJA EL VALOR DE -INF A X.
imagen_class <- reclassify(p,r_m,right=FALSE) #se reclasifica pasando la img p y la matriz r_m
crs(imagen_class)<-proj
mes<-as.integer(mes)
mes<-as.character(mes)
writeRaster(imagen_class,paste0(salida,"HP_",lago,"_MNDWI_Mes_",mes,"_",tiempo,'_',
as.array(length(lista)),'.tif'), overwrite = TRUE)
}
#2023
setwd(path_curso)
files.entrada <- list.files(full.names = FALSE)                 #lista de archivos de entrada
y<-files.entrada
print(y)
for(l in y){
setwd(paste0(path_curso,"/",l))
dir.salida_23<-paste0(path_curso,"/",l,"/HP_2023/")
lago <- str_sub(l,8)
lago <- as.integer(lago)
if(file.exists("HP_2023")){
next
}else{
dir.create("HP_2023")
setwd(paste0(path_curso,"/",l,"/LamAgua"))
files.entrada2<-list.files(pattern=".tif", full.names = FALSE)
m<-files.entrada2
for(mes_num in lista_meses_num){
lista_23<-list()
for(anio in lista_anios){
for(n in m){
if(grepl(paste0(anio,mes_num),n)){
if(anio == "_2023"){
lista_23<-append(lista_23,n)
}
}
}
}
if(length(lista_23)>0){
hp(lista_23,lago,mes_num,tiempo=tiempo_23,dir.salida_23)
}
}
}
d <- list.files(dir.salida_23,pattern = '.xml',full.names = TRUE)
file.remove(d)
}
dir.salida_23
lago
dir.create("HP_2023")
setwd(paste0(path_curso,"/",l))
dir.salida_23<-paste0(path_curso,"/",l,"/HP_2023/")
lago <- str_sub(l,8)
lago <- as.integer(lago)
dir.create("HP_2023")
setwd(paste0(path_curso,"/",l,"/LamAgua"))
files.entrada2<-list.files(pattern=".tif", full.names = FALSE)
m<-files.entrada2
for(mes_num in lista_meses_num){
lista_23<-list()
for(anio in lista_anios){
for(n in m){
if(grepl(paste0(anio,mes_num),n)){
if(anio == "_2023"){
lista_23<-append(lista_23,n)
}
}
}
}
if(length(lista_23)>0){
hp(lista_23,lago,mes_num,tiempo=tiempo_23,dir.salida_23)
}
}
anio
n
m
n
mes_num
anio == "_2023"
anio
for(mes_num in lista_meses_num){
lista_23<-list()
for(anio in lista_anios){
for(n in m){
if(grepl(paste0(anio,mes_num),n)){
if(anio == "2023"){
lista_23<-append(lista_23,n)
}
}
}
}
if(length(lista_23)>0){
hp(lista_23,lago,mes_num,tiempo=tiempo_23,dir.salida_23)
}
}
d <- list.files(dir.salida_23,pattern = '.xml',full.names = TRUE)
file.remove(d)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/3_Reprocesado/7_HIDROPERIODO_HIST_CURSO.R", echo=TRUE)
#################################################################################################################################################
#Descripcion: Script para generar el hidroperiodo de la serie histórica y del año en curso.
#Autor: Mario Suarez Rodriguez
#################################################################################################################################################
#LIBRERIAS ######################################################################################################################################
library("raster")
library ("rgdal")
library("stringr")
#VARIABLES A EDITAR######################################################################
tiempo_23<-"2023"
proj<-"+init=EPSG:25829"   #!!!!   IMPORTANTE  ¡¡¡¡
lista_meses_num<-list("01","02","03","04","05","06","07","08","09","10","11","12")
lista_anios<-list("_1984","_1985","_1986","_1987","_1988","_1989","_1990","_1991","_1992","_1993","_1994","_1995","_1996","_1997",
"_1998","_1999","_2000","_2001","_2002","_2003","_2004","_2005","_2006","_2007","_2008","_2009","_2010","_2011",
"_2012","_2013","_2014","_2015","_2016","_2017","_2018","_2019","_2020","_2021","_2022","2023")
#carpeta_hist<-"COB_VIEJA/H30"
carpeta_curso<-"CURSO/H29"
path_curso<-paste0("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/7_Reprocesado/",carpeta_curso)
# FUNCIONES ############################################################################
hp <- function(lista,lago,mes,tiempo,salida){
st<-stack(lista)
s<-sum(st) #sumatorio de todos los rasters
p<-(s/length(lista))*100  #calculo de un porcentaje
r_df <- c(-Inf, 50, 0,
50, Inf, 1) #cadena definiendo los valores de la reclass
#Matriz de clasificacion.
r_m <- matrix(r_df,
ncol = 3,
byrow = TRUE) #PONER TRUE SI QUIERO QUE NO COJA EL VALOR DE -INF A X.
imagen_class <- reclassify(p,r_m,right=FALSE) #se reclasifica pasando la img p y la matriz r_m
crs(imagen_class)<-proj
mes<-as.integer(mes)
mes<-as.character(mes)
writeRaster(imagen_class,paste0(salida,"HP_",lago,"_MNDWI_Mes_",mes,"_",tiempo,'_',
as.array(length(lista)),'.tif'), overwrite = TRUE)
}
#2023
setwd(path_curso)
files.entrada <- list.files(full.names = FALSE)                 #lista de archivos de entrada
y<-files.entrada
print(y)
for(l in y){
setwd(paste0(path_curso,"/",l))
dir.salida_23<-paste0(path_curso,"/",l,"/HP_2023/")
lago <- str_sub(l,8)
lago <- as.integer(lago)
if(file.exists("HP_2023")){
next
}else{
dir.create("HP_2023")
setwd(paste0(path_curso,"/",l,"/LamAgua"))
files.entrada2<-list.files(pattern=".tif", full.names = FALSE)
m<-files.entrada2
for(mes_num in lista_meses_num){
lista_23<-list()
for(anio in lista_anios){
for(n in m){
if(grepl(paste0(anio,mes_num),n)){
if(anio == "2023"){
lista_23<-append(lista_23,n)
}
}
}
}
if(length(lista_23)>0){
hp(lista_23,lago,mes_num,tiempo=tiempo_23,dir.salida_23)
}
}
}
d <- list.files(dir.salida_23,pattern = '.xml',full.names = TRUE)
file.remove(d)
}
setwd(paste0(path_curso,"/",l))
dir.salida_23<-paste0(path_curso,"/",l,"/HP_2023/")
lago <- str_sub(l,8)
lago <- as.integer(lago)
if(file.exists("HP_2023")){
next
}else{
dir.create("HP_2023")
setwd(paste0(path_curso,"/",l,"/LamAgua"))
files.entrada2<-list.files(pattern=".tif", full.names = FALSE)
m<-files.entrada2
for(mes_num in lista_meses_num){
lista_23<-list()
for(anio in lista_anios){
for(n in m){
if(grepl(paste0(anio,mes_num),n)){
if(anio == "2023"){
lista_23<-append(lista_23,n)
}
}
}
}
if(length(lista_23)>0){
hp(lista_23,lago,mes_num,tiempo=tiempo_23,dir.salida_23)
}
}
}
d <- list.files(dir.salida_23,pattern = '.xml',full.names = TRUE)
file.remove(d)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/3_Reprocesado/7_HIDROPERIODO_HIST_CURSO.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/3_Reprocesado/7_HIDROPERIODO_HIST_CURSO.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/3_Reprocesado/7_HIDROPERIODO_HIST_CURSO.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/3_Reprocesado/8_Grafico_Tablas_CRUCE_SUP_v2_REPROCESADO.R", echo=TRUE)
descarga<-"7_Reprocesado/CURSO/H29"
huso <- "H29"
setwd(paste0("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_23/",descarga))
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/3_Reprocesado/8_Grafico_Tablas_CRUCE_SUP_v2_REPROCESADO.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/3_Reprocesado/8_Grafico_Tablas_CRUCE_SUP_v2_REPROCESADO.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/3_Reprocesado/8_Grafico_Tablas_CRUCE_SUP_v2_REPROCESADO.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/3_Reprocesado/9_LAGUNA_SECA_v3_REPROCESADO_2022.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/3_Reprocesado/9_LAGUNA_SECA_v3_REPROCESADO_2022.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/3_Reprocesado/9_LAGUNA_SECA_v3_REPROCESADO_2022.R", echo=TRUE)
source("//imgwebserver/PROYECTOS/MITECO/DG_AGUA/LAGOS/CURSO_2023/3_Scripts/3_Reprocesado/9_LAGUNA_SECA_v3_REPROCESADO_2022.R", echo=TRUE)
