Commit 75448a9e authored by Bruno Bonte's avatar Bruno Bonte
Browse files

modids in clean-hrus and in settings libraries

parent f961853a
......@@ -27,7 +27,7 @@
for(FileName in list.files(wd_Functions, pattern="\\.[Rr]$")){ source(file.path(wd_Functions, FileName)); }
####### 1.3 Load libraries #######
load <- c(require(ConfigParser), require(R.utils), require(RSQLite), require(feather), require(zoo), require (multiplex), require(tidyr), require(ggplot2), require(dplyr), require(doParallel)); if(any(!load)){ cat("Error: a package is not installed \n"); stop("RUN STOPPED",call.=FALSE); };
load <- c(require(ConfigParser), require(R.utils), require(RSQLite), require(feather), require(zoo), require (multiplex), require(tidyr), require(ggplot2), require(dplyr), require(doParallel), require(gridExtra)); if(any(!load)){ cat("Error: a package is not installed \n"); stop("RUN STOPPED",call.=FALSE); };
####### 1.4 Core parallelism #######
cores <- parallel:::detectCores(); registerDoParallel(cores-2);
......
bigHrusTb <- read.table("superjams/data/J2K_cowat/parameter/hru.par",
bigHrusTb <<- read.table("superjams/data/J2K_cowat/parameter/hru.par",
sep="\t",
dec= ".",
header = F,
......@@ -8,7 +8,7 @@ colnames(bigHrusTb) <- c("ID","area","elevation","slope","aspect","x","y","water
bigHrusTb %>% filter(is.na(to_poly))
hrus <- read.table("superjams/data/J2K_cowat/parameter/hru_cowat_10_ok2.par",
hrus <<- read.table("superjams/data/J2K_cowat/parameter/hru_cowat_10_ok2.par",
sep="\t",
dec= ".",
header = F,
......@@ -16,7 +16,7 @@ hrus <- read.table("superjams/data/J2K_cowat/parameter/hru_cowat_10_ok2.par",
colnames(hrus) <- c("ID","area","elevation","slope","aspect","x","y","watershed","subbasin","hgeoID","landuseID","soilID","to_poly","to_reach")
plots2Hrus <- read.table("hru-plot-to-big-hru.csv",
plots2Hrus <<- read.table("hru-plot-to-big-hru.csv",
sep=";",
dec=".",
header = T) %>%
......@@ -25,7 +25,7 @@ plots2Hrus <- read.table("hru-plot-to-big-hru.csv",
rename(motherHRU = cat) %>%
tbl_df()
plotsInHrus <- hrus %>%
plotsInHrus <<- hrus %>%
left_join(# Pour les plots, la HRU mère est l'exutoire du HRUplot
plots2Hrus %>%
filter(!isPlot) %>%
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment