Mercurial > repos > siwaa > redelac_stics_t

annotate redelacSticsTool.R @ 15:af807768332e draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
author siwaa
date Fri, 06 Feb 2026 13:28:00 +0000
parents e0d592bb516e
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
1 library(SticsRFiles)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
2 library(SticsOnR)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
3 library(dplyr)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
4 library(lubridate)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
5 library(parallel)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
6 library(doParallel)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
7 library(doFuture)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
8 library(stringr)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
9 library(readxl)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
10 library(data.table)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
11 library(readr)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
12 library(tidyr)
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
13 library(arrow)
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
14 sessionInfo()
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
15
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
16 args = commandArgs(trailingOnly = TRUE)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
17
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
18 startTime <- Sys.time()
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
19
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
20 workspace <- paste0(getwd(), "/WS")
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
21 javastics_path <- getwd()
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
22 default_config_path <- paste0(javastics_path, "/config")
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
23
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
24 txt_path <- paste0(getwd(), "/WS/txt_files")
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
25 dir.create(txt_path, recursive = T)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
26
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
27 USMsFile <- "USMs.csv"
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
28 TecFile <- "Tec.csv"
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
29 IniFile <- "Ini.csv"
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
30 StationFile <- "Station.csv"
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
31
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
32 redelac <- (args[1] == "optim")
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
33 parallel <- (args[2] == "parallel")
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
34 print(paste("parallel:", parallel, args[2]))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
35 nbSlots <- as.integer(args[3])
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
36 print(paste("nbslots:", nbSlots))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
37 scenario <- args[4]
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
38 resulType <- args[5]
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
39
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
40 parquetOut <- (resulType == "parquet" || resulType == "both" )
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
41 baseOut <- (resulType == "rds+csv" || resulType == "both" )
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
42
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
43 # USMs file loading
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
44
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
45 usms_param <- read_params_table(file.path(workspace, USMsFile)) %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
46 select(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
47 usm_name,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
48 datedebut,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
49 datefin,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
50 finit,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
51 nomsol,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
52 fstation,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
53 fclim1,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
54 fclim2,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
55 culturean,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
56 nbplantes,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
57 codesimul,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
58 fplt_1,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
59 ftec_1,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
60 flai_1,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
61 fplt_2,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
62 ftec_2,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
63 flai_2
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
64 )
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
65
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
66 # Tec files loading and generating xml
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
67
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
68 tec_param <- read_params_table(file.path(workspace, TecFile))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
69 columnToRemove <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
70 names(tec_param[grep("juleclair|nbinfloecl", names(tec_param))])
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
71 columnToKeep <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
72 names(tec_param)[names(tec_param) %in% columnToRemove == FALSE]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
73
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
74 tec_param <- subset(tec_param, select = columnToKeep)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
75
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
76 gen_tec_xml(param_df = tec_param, out_dir = workspace)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
77
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
78 # Ini files loading and generating xml
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
79
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
80 ini_param <- read_params_table(file.path(workspace, IniFile))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
81
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
82 gen_ini_xml(param_df = ini_param, out_dir = workspace)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
83
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
84 # Station files loading and generating xml
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
85
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
86 sta_param <- read_params_table(file.path(workspace, StationFile))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
87
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
88 gen_sta_xml(param_df = sta_param, out_dir = workspace)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
89
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
90 if (parallel) {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
91 doFuture::registerDoFuture()
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
92 future::plan(multisession, workers = nbSlots)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
93 `%dordopar%` <- `%dofuture%`
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
94 } else {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
95 `%dordopar%` <- `%do%`
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
96 }
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
97
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
98 beforeGenXmlTime <- Sys.time()
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
99
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
100 #gen_usms_xml(file = file.path(workspace, "usms.xml"),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
101 # param_df = usms_param)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
102
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
103 chunckSize <- 1000
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
104 nbUSMs <- nrow(usms_param)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
105
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
106 ids <- seq(1, nbUSMs, chunckSize)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
107
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
108 foreach (i = ids,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
109 .options.future = list(packages = c("foreach", "SticsRFiles"))) %dordopar% {
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
110 usmsXfolder = file.path(workspace, paste0("UXF__", i))
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
111 dir.create(usmsXfolder)
1
ed9c49c6c6e1 "planemo upload for repository https://forgemia.inra.fr/redelac commit c398d524dabc89c0979403d2ff62970fc6c2b404"
siwaa
parents: 0
diff changeset
112 gen_usms_xml(file = file.path(usmsXfolder, paste0("usms__", i, ".xml")),
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
113 param_df = usms_param[i:min(i + chunckSize - 1, nbUSMs),])
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
114 }
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
115
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
116 afterGenXmlTime <- Sys.time()
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
117 durGenX <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
118 lubridate::as.duration(lubridate::interval(beforeGenXmlTime,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
119 afterGenXmlTime))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
120
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
121 beforeGenTxtTime <- Sys.time()
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
122
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
123 foreach (i = ids,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
124 .options.future = list(packages = c("foreach", "SticsRFiles"))) %dordopar% {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
125 gen_usms_xml2txt(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
126 javastics = javastics_path,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
127 workspace = workspace,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
128 out_dir = txt_path,
1
ed9c49c6c6e1 "planemo upload for repository https://forgemia.inra.fr/redelac commit c398d524dabc89c0979403d2ff62970fc6c2b404"
siwaa
parents: 0
diff changeset
129 usms_file = paste0("UXF__", i, "/usms__", i, ".xml"),
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
130 redelac = redelac,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
131 parallel = parallel,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
132 verbose = FALSE
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
133 )
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
134 }
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
135
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
136 afterGenTxtTime <- Sys.time()
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
137 durGenT <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
138 lubridate::as.duration(lubridate::interval(beforeGenTxtTime, afterGenTxtTime))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
139
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
140 afterGenTxtTime <- Sys.time()
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
141 durGenT <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
142 lubridate::as.duration(lubridate::interval(beforeGenTxtTime, afterGenTxtTime))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
143
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
144 endTime <- Sys.time()
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
145
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
146 dur <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
147 lubridate::as.period(lubridate::as.duration(lubridate::interval(startTime, endTime)))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
148 durGenXP <- lubridate::as.period(durGenX)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
149 durGenTP <- lubridate::as.period(durGenT)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
150
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
151 print("REDELACSticsInputGenerator Report")
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
152 print("=================================")
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
153 print(paste("number of usms: ", nrow(usms_param)))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
154 print(paste("redelac optimization:", redelac))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
155 print(paste("process in parallel:", parallel))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
156 print(paste("nbslots:", nbSlots))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
157
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
158 sprintf(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
159 'overall duration: %g jour(s) %g heure(s) %g minute(s) %g seconde(s)',
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
160 lubridate::day(dur),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
161 lubridate::hour(dur),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
162 lubridate::minute(dur),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
163 lubridate::second(dur)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
164 )
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
165
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
166 sprintf(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
167 'inside gen_usms_xml duration: %g jour(s) %g heure(s) %g minute(s) %g seconde(s)',
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
168 lubridate::day(durGenXP),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
169 lubridate::hour(durGenXP),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
170 lubridate::minute(durGenXP),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
171 lubridate::second(durGenXP)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
172 )
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
173
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
174 sprintf(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
175 'inside gen_usms_xml2txt duration: %g jour(s) %g heure(s) %g minute(s) %g seconde(s)',
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
176 lubridate::day(durGenTP),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
177 lubridate::hour(durGenTP),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
178 lubridate::minute(durGenTP),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
179 lubridate::second(durGenTP)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
180 )
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
181 print(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
182 "==================================================================================="
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
183 )
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
184
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
185
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
186 #
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
187 # Simulation part
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
188 #
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
189
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
190 # List of successive USMs
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
191 successive_usms_file <- ("successionPlan.csv")
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
192 successive_usms_tab <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
193 read.csv(file = file.path(workspace, successive_usms_file),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
194 sep = ";")
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
195
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
196 # from succesions to simulate retrieving upcSol Cases
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
197
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
198 successRef <- successive_usms_tab["Treatment"]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
199
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
200 successRef <- successRef %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
201 separate(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
202 col = Treatment,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
203 into = c("upc", "sol", "systeme", "rotation", "tete_rotation", "horizon"),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
204 sep = "-",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
205 remove = FALSE
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
206 )
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
207
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
208 successRef$upcSol <- paste0(successRef$upc, "-", successRef$sol)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
209
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
210 casesUpcSol <- unique(successRef$upcSol)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
211
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
212 systeme <- successRef$systeme[1]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
213 rotation <- successRef$rotation[1]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
214
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
215 successive_usms_tab_split <- list()
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
216
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
217 for (j in 1:length(casesUpcSol)) {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
218 splited <- strsplit(casesUpcSol[j], split = "-")[[1]]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
219
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
220 upc <- splited[1]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
221
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
222 sol <- splited[2]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
223
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
224 successive_usms_tab_split[[j]] <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
225 successive_usms_tab[successRef$upcSol == casesUpcSol[j],]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
226 }
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
227
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
228 result <- foreach(j = 1:length(casesUpcSol)) %:%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
229 foreach(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
230 i = 1:nrow(successive_usms_tab_split[[j]]),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
231 .options.future = list(packages =c("foreach", "SticsRFiles", "SticsOnR"))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
232
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
233 ) %dordopar% {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
234
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
235 nusms <- as.numeric(successive_usms_tab_split[[j]][i, 2])
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
236
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
237 vec <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
238 as.character(successive_usms_tab_split[[j]][i, c(3:(2 + nusms))])
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
239
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
240 list_successive_usms <- list(vec)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
241
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
242 sim_options <- stics_wrapper_options(
5
e0d592bb516e "planemo upload for repository https://forgemia.inra.fr/redelac commit 1b434482800e773a592b5fc6f472e7df465e91ce"
siwaa
parents: 1
diff changeset
243 stics_exe = "stics_modulo",
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
244 workspace = txt_path,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
245 verbose = TRUE,
5
e0d592bb516e "planemo upload for repository https://forgemia.inra.fr/redelac commit 1b434482800e773a592b5fc6f472e7df465e91ce"
siwaa
parents: 1
diff changeset
246 force = TRUE,
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
247 successive = list_successive_usms
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
248 )
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
249
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
250 list_usms <- vec
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
251
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
252 cat(paste0("--> succession : ", successive_usms_tab_split[[j]][i, 1], " launched\n"))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
253
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
254 return(stics_wrapper(model_options = sim_options, situation = list_usms))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
255
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
256 }
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
257
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
258 for (j in 1:length(casesUpcSol)) {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
259 splited <- strsplit(casesUpcSol[j], split = "-")[[1]]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
260
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
261 upc <- splited[1]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
262
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
263 sol <- splited[2]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
264
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
265 for (i in 1:nrow(successive_usms_tab_split[[j]])) {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
266 #i=1
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
267 if (i == 1) {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
268 simPCP <- result[[j]][[i]]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
269 } else {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
270 simPCP$sim_list <- c(simPCP$sim_list, result[[j]][[i]]$sim_list)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
271 }
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
272
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
273 }
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
274
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
275 #agregation des sorties dans un dataframe
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
276 sim_df <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
277 rbindlist(simPCP$sim_list, use.names = TRUE, idcol = "usm")
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
278
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
279 #ajout des colonnes explicatives + de l'horizon temporel
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
280 sim_df <- sim_df %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
281 separate(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
282 col = usm,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
283 into = c(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
284 "upc",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
285 "sol",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
286 "systeme",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
287 "rotation",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
288 "tete_rotation",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
289 "horizon",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
290 "annee",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
291 "culture"
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
292 ),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
293 sep = "-",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
294 remove = FALSE
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
295 )
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
296
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
297 #sauvegarde sous la forme d'un fichier rds
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
298
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
299 if (baseOut) {
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
300
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
301 if (dir.exists(paste0(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
302 workspace,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
303 "/analyse_simulations_STICS/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
304 systeme,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
305 "/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
306 rotation
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
307 )) == FALSE) {
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
308 dir.create(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
309 paste0(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
310 workspace,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
311 "/analyse_simulations_STICS/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
312 systeme,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
313 "/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
314 rotation
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
315 ),
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
316 recursive = TRUE
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
317 )
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
318 }
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
319
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
320 saveRDS(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
321 sim_df,
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
322 paste0(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
323 workspace,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
324 "/analyse_simulations_STICS/",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
325 systeme,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
326 "/",
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
327 rotation,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
328 "/outputs-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
329 rotation,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
330 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
331 upc,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
332 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
333 sol,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
334 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
335 scenario,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
336 ".rds"
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
337 )
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
338 )
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
339 }
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
340
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
341 if (parquetOut) {
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
342
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
343 if (dir.exists(paste0(
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
344 workspace,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
345 "/analyse_simulations_STICS/",
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
346 "/donnees_parquet_outputs/"
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
347 )) == FALSE) {
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
348 dir.create(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
349 paste0(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
350 workspace,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
351 "/analyse_simulations_STICS/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
352 "/donnees_parquet_outputs/"
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
353 ),
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
354 recursive = TRUE
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
355 )
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
356 }
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
357
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
358 write_parquet(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
359 sim_df,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
360 paste0(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
361 workspace,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
362 "/analyse_simulations_STICS/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
363 "/donnees_parquet_outputs/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
364 "outputs-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
365 rotation,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
366 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
367 upc,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
368 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
369 sol,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
370 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
371 scenario,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
372 ".parquet"
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
373
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
374 ))
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
375 }
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
376
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
377 successive_usms_tab_split[[j]]$Treatment <- NULL
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
378 successive_usms_tab_split[[j]]$Number_USM <- NULL
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
379
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
380 list_usms <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
381 unlist(unname(as.list(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
382 transpose(successive_usms_tab_split[[j]])
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
383 )))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
384 list_usms <- list_usms[!is.na(list_usms)]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
385 list_usms <- list_usms[list_usms != '']
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
386
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
387 list_usms_yr1 <- successive_usms_tab_split[[j]]$USM_1
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
388
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
389 for (i in 1:length(list_usms)) {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
390 if (i == 1) {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
391 #ajout d'une condition sur l'existence du fichier "mod_rapport.sti" pour la concatenation
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
392 #en attendant que toutes les simulations tournent correctement
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
393 #if(exists(file.path(txt_path, list_usms[i], "mod_rapport.sti"))==TRUE){
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
394 rap_1 <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
395 read_delim(file.path(txt_path, list_usms[i], "mod_rapport.sti"),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
396 col_names = TRUE)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
397 names_col <- colnames(rap_1)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
398
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
399 rap_string <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
400 read_lines(file = file.path(txt_path, list_usms[i], "mod_rapport.sti"),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
401 skip = 1)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
402
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
403 rap <- as_tibble(rap_string) %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
404 separate(col = value,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
405 sep = ";",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
406 into = names_col) %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
407 mutate(USM = list_usms[i])
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
408 # }
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
409
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
410 } else {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
411 #if (list_usms[i] %in% list_usms_yr1) {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
412 #ajout d'une condition sur l'existence du fichier "mod_rapport.sti" pour la concatenation
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
413 #en attendant que toutes les simulations tournent correctement
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
414 #if(exists(file.path(txt_path, list_usms[i], "mod_rapport.sti"))==TRUE){
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
415 rap_string <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
416 read_lines(file = file.path(txt_path, list_usms[i], "mod_rapport.sti"),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
417 skip = 1,)#}
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
418
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
419 # } else {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
420 #ajout d'une condition sur l'existence du fichier "mod_rapport.sti" pour la concatenation
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
421 #en attendant que toutes les simulations tournent correctement
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
422 #if(exists(file.path(txt_path, list_usms[i], "mod_rapport.sti"))==TRUE){
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
423 # rap_string <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
424 # read_file(file = file.path(txt_path, list_usms[i], "mod_rapport.sti"))#}
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
425 # }
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
426 rap_i <- as_tibble(rap_string) %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
427 separate(col = value,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
428 sep = ";",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
429 into = names_col) %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
430 mutate(USM = list_usms[i])
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
431
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
432 rap <- bind_rows(rap, rap_i)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
433
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
434 }
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
435
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
436 }
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
437 rm(rap_1, names_col, rap_string, rap_i)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
438
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
439 rap <- rap %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
440 select(USM, everything()) %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
441 mutate(P_usm = str_replace_all(P_usm, " ", "")) %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
442 mutate(wlieu = str_replace_all(wlieu, " ", "")) %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
443 mutate(stade = str_replace_all(stade, " ", "")) %>%
5
e0d592bb516e "planemo upload for repository https://forgemia.inra.fr/redelac commit 1b434482800e773a592b5fc6f472e7df465e91ce"
siwaa
parents: 1
diff changeset
444 mutate(nomversion = str_replace_all(P_usm, " ", "")) %>%
e0d592bb516e "planemo upload for repository https://forgemia.inra.fr/redelac commit 1b434482800e773a592b5fc6f472e7df465e91ce"
siwaa
parents: 1
diff changeset
445 mutate(across(4:10, as.numeric)) %>%
e0d592bb516e "planemo upload for repository https://forgemia.inra.fr/redelac commit 1b434482800e773a592b5fc6f472e7df465e91ce"
siwaa
parents: 1
diff changeset
446 mutate(across(14:ncol(rap), as.numeric)) %>%
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
447 separate(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
448 col = USM,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
449 into = c(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
450 "upc",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
451 "sol",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
452 "systeme",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
453 "rotation",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
454 "tete_rotation",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
455 "horizon",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
456 "annee",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
457 "culture"
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
458 ),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
459 sep = "-",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
460 remove = FALSE
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
461 )
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
462
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
463 if (baseOut) {
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
464
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
465 write_delim(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
466 x = rap,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
467 file = paste0(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
468 workspace,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
469 "/analyse_simulations_STICS/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
470 systeme,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
471 "/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
472 rotation,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
473 "/report-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
474 rotation,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
475 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
476 upc,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
477 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
478 sol,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
479 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
480 scenario,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
481 ".csv"
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
482 ),
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
483 delim = ";"
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
484 )
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
485 }
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
486
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
487 if (parquetOut) {
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
488
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
489 if (dir.exists(paste0(
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
490 workspace,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
491 "/analyse_simulations_STICS/",
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
492 "/donnees_parquet_report/"
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
493 )) == FALSE) {
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
494 dir.create(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
495 paste0(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
496 workspace,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
497 "/analyse_simulations_STICS/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
498 "/donnees_parquet_report/"
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
499 ),
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
500 recursive = TRUE
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
501 )
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
502 }
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
503
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
504 write_parquet(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
505 sim_df,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
506 paste0(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
507 workspace,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
508 "/analyse_simulations_STICS/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
509 "/donnees_parquet_report/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
510 "report-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
511 rotation,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
512 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
513 upc,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
514 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
515 sol,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
516 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
517 scenario,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
518 ".parquet"
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
519
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
520 ))
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
521 }
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
522 }