Mercurial > repos > siwaa > redelac_stics_t

annotate redelacSticsTool.R @ 20:475aa4451308 draft

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 b4077990f5df769fbae45689f5bb12dbc81b2e4e"
author siwaa
date Fri, 10 Jul 2026 11:43:17 +0000
parents 8848db582840
children 5dcba002e019
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 #
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
141 # Simulation part
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
142 #
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
143
18
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
144 beforeSimsTime <- Sys.time()
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
145
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
146 # List of successive USMs
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
147 successive_usms_file <- ("successionPlan.csv")
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
148 successive_usms_tab <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
149 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
150 sep = ";")
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
151
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
152 # from succesions to simulate retrieving upcSol Cases
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
153
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
154 successRef <- successive_usms_tab["Treatment"]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
155
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
156 successRef <- successRef %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
157 separate(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
158 col = Treatment,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
159 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
160 sep = "-",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
161 remove = FALSE
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
162 )
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
163
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
164 successRef$upcSol <- paste0(successRef$upc, "-", successRef$sol)
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 casesUpcSol <- unique(successRef$upcSol)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
167
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
168 systeme <- successRef$systeme[1]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
169 rotation <- successRef$rotation[1]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
170
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
171 successive_usms_tab_split <- list()
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 for (j in 1:length(casesUpcSol)) {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
174 splited <- strsplit(casesUpcSol[j], split = "-")[[1]]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
175
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
176 upc <- splited[1]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
177
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
178 sol <- splited[2]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
179
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
180 successive_usms_tab_split[[j]] <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
181 successive_usms_tab[successRef$upcSol == casesUpcSol[j],]
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 result <- foreach(j = 1:length(casesUpcSol)) %:%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
185 foreach(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
186 i = 1:nrow(successive_usms_tab_split[[j]]),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
187 .options.future = list(packages =c("foreach", "SticsRFiles", "SticsOnR"))
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 ) %dordopar% {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
190
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
191 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
192
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
193 vec <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
194 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
195
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
196 list_successive_usms <- list(vec)
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 sim_options <- stics_wrapper_options(
5
e0d592bb516e "planemo upload for repository https://forgemia.inra.fr/redelac commit 1b434482800e773a592b5fc6f472e7df465e91ce"
siwaa
parents: 1
diff changeset
199 stics_exe = "stics_modulo",
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
200 workspace = txt_path,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
201 verbose = TRUE,
5
e0d592bb516e "planemo upload for repository https://forgemia.inra.fr/redelac commit 1b434482800e773a592b5fc6f472e7df465e91ce"
siwaa
parents: 1
diff changeset
202 force = TRUE,
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
203 successive = list_successive_usms
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
204 )
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
205
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
206 list_usms <- vec
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 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
209
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
210 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
211
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
212 }
19
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
213
18
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
214 afterSimsTime <- Sys.time()
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
215 durSimsT <-
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
216 lubridate::as.duration(lubridate::interval(beforeSimsTime, afterSimsTime))
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
217 durSimsTP <- lubridate::as.period(durSimsT)
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
218
18
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
219 #
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
220 # Output part
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
221 #
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
222
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
223 beforeOutputsTime <- Sys.time()
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
224
19
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
225 for (j in 1:length(casesUpcSol)) {
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
226
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
227 successive_usms_tab_split[[j]]$Treatment <- NULL
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
228 successive_usms_tab_split[[j]]$Number_USM <- NULL
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
229 splited <- strsplit(casesUpcSol[j], split = "-")[[1]]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
230
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
231 upc <- splited[1]
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 sol <- splited[2]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
234
20
475aa4451308 "planemo upload for repository https://forgemia.inra.fr/redelac commit b4077990f5df769fbae45689f5bb12dbc81b2e4e"
siwaa
parents: 19
diff changeset
235 simPCPlist <- list()
475aa4451308 "planemo upload for repository https://forgemia.inra.fr/redelac commit b4077990f5df769fbae45689f5bb12dbc81b2e4e"
siwaa
parents: 19
diff changeset
236
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
237 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
238 #i=1
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
239 if (i == 1) {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
240 simPCP <- result[[j]][[i]]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
241 } else {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
242 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
243 }
20
475aa4451308 "planemo upload for repository https://forgemia.inra.fr/redelac commit b4077990f5df769fbae45689f5bb12dbc81b2e4e"
siwaa
parents: 19
diff changeset
244 }
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
245
20
475aa4451308 "planemo upload for repository https://forgemia.inra.fr/redelac commit b4077990f5df769fbae45689f5bb12dbc81b2e4e"
siwaa
parents: 19
diff changeset
246 simPCPlist[[j]] <- simPCP
475aa4451308 "planemo upload for repository https://forgemia.inra.fr/redelac commit b4077990f5df769fbae45689f5bb12dbc81b2e4e"
siwaa
parents: 19
diff changeset
247 }
475aa4451308 "planemo upload for repository https://forgemia.inra.fr/redelac commit b4077990f5df769fbae45689f5bb12dbc81b2e4e"
siwaa
parents: 19
diff changeset
248
475aa4451308 "planemo upload for repository https://forgemia.inra.fr/redelac commit b4077990f5df769fbae45689f5bb12dbc81b2e4e"
siwaa
parents: 19
diff changeset
249 rm(casesUpcSol)
475aa4451308 "planemo upload for repository https://forgemia.inra.fr/redelac commit b4077990f5df769fbae45689f5bb12dbc81b2e4e"
siwaa
parents: 19
diff changeset
250
475aa4451308 "planemo upload for repository https://forgemia.inra.fr/redelac commit b4077990f5df769fbae45689f5bb12dbc81b2e4e"
siwaa
parents: 19
diff changeset
251 foreach(
475aa4451308 "planemo upload for repository https://forgemia.inra.fr/redelac commit b4077990f5df769fbae45689f5bb12dbc81b2e4e"
siwaa
parents: 19
diff changeset
252 j = 1:length(simPCPlist),
475aa4451308 "planemo upload for repository https://forgemia.inra.fr/redelac commit b4077990f5df769fbae45689f5bb12dbc81b2e4e"
siwaa
parents: 19
diff changeset
253 .options.future = list(packages =c("foreach", "tidyr", "arrow"))
475aa4451308 "planemo upload for repository https://forgemia.inra.fr/redelac commit b4077990f5df769fbae45689f5bb12dbc81b2e4e"
siwaa
parents: 19
diff changeset
254 ) %dordopar% {
0
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 #agregation des sorties dans un dataframe
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
257 sim_df <-
20
475aa4451308 "planemo upload for repository https://forgemia.inra.fr/redelac commit b4077990f5df769fbae45689f5bb12dbc81b2e4e"
siwaa
parents: 19
diff changeset
258 rbindlist(simPCPlist[[j]]$sim_list, use.names = TRUE, idcol = "usm")
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
259
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
260 #ajout des colonnes explicatives + de l'horizon temporel
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
261 sim_df <- sim_df %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
262 separate(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
263 col = usm,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
264 into = c(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
265 "upc",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
266 "sol",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
267 "systeme",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
268 "rotation",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
269 "tete_rotation",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
270 "horizon",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
271 "annee",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
272 "culture"
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 sep = "-",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
275 remove = FALSE
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
276 )
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
277
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
278 #sauvegarde sous la forme d'un fichier rds
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
279
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
280 if (baseOut) {
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
281
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
282 if (dir.exists(paste0(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
283 workspace,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
284 "/analyse_simulations_STICS/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
285 systeme,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
286 "/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
287 rotation
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
288 )) == FALSE) {
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
289 dir.create(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
290 paste0(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
291 workspace,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
292 "/analyse_simulations_STICS/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
293 systeme,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
294 "/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
295 rotation
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
296 ),
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
297 recursive = TRUE
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
298 )
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
299 }
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 saveRDS(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
302 sim_df,
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
303 paste0(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
304 workspace,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
305 "/analyse_simulations_STICS/",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
306 systeme,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
307 "/",
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
308 rotation,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
309 "/outputs-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
310 rotation,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
311 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
312 upc,
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 sol,
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 scenario,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
317 ".rds"
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
318 )
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
319 )
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
320 }
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
321
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
322 if (parquetOut) {
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
323
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
324 if (dir.exists(paste0(
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
325 workspace,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
326 "/analyse_simulations_STICS/",
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
327 "/donnees_parquet_outputs/"
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
328 )) == FALSE) {
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
329 dir.create(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
330 paste0(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
331 workspace,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
332 "/analyse_simulations_STICS/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
333 "/donnees_parquet_outputs/"
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 recursive = TRUE
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
336 )
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
337 }
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
338
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
339 write_parquet(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
340 sim_df,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
341 paste0(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
342 workspace,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
343 "/analyse_simulations_STICS/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
344 "/donnees_parquet_outputs/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
345 "outputs-",
17
fa4e7fd1d3f7 "planemo upload for repository https://forgemia.inra.fr/redelac commit d102b73678f095281635bf5f00d86a4a77a1ae9e"
siwaa
parents: 16
diff changeset
346 systeme,
fa4e7fd1d3f7 "planemo upload for repository https://forgemia.inra.fr/redelac commit d102b73678f095281635bf5f00d86a4a77a1ae9e"
siwaa
parents: 16
diff changeset
347 "-",
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
348 rotation,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
349 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
350 upc,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
351 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
352 sol,
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 scenario,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
355 ".parquet"
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 }
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
359
19
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
360 #successive_usms_tab_split[[j]]$Treatment <- NULL
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
361 #successive_usms_tab_split[[j]]$Number_USM <- NULL
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
362
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
363 list_usms <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
364 unlist(unname(as.list(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
365 transpose(successive_usms_tab_split[[j]])
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
366 )))
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
367 list_usms <- list_usms[!is.na(list_usms)]
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
368 list_usms <- list_usms[list_usms != '']
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
369
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
370 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
371
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
372 for (i in 1:length(list_usms)) {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
373 if (i == 1) {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
374 #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
375 #en attendant que toutes les simulations tournent correctement
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
376 #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
377 rap_1 <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
378 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
379 col_names = TRUE)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
380 names_col <- colnames(rap_1)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
381
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
382 rap_string <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
383 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
384 skip = 1)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
385
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
386 rap <- as_tibble(rap_string) %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
387 separate(col = value,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
388 sep = ";",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
389 into = names_col) %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
390 mutate(USM = list_usms[i])
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
391 # }
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
392
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
393 } else {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
394 #if (list_usms[i] %in% list_usms_yr1) {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
395 #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
396 #en attendant que toutes les simulations tournent correctement
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
397 #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
398 rap_string <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
399 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
400 skip = 1,)#}
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
401
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
402 # } else {
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
403 #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
404 #en attendant que toutes les simulations tournent correctement
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
405 #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
406 # rap_string <-
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
407 # 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
408 # }
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
409 rap_i <- as_tibble(rap_string) %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
410 separate(col = value,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
411 sep = ";",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
412 into = names_col) %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
413 mutate(USM = list_usms[i])
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
414
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
415 rap <- bind_rows(rap, rap_i)
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
416
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
417 }
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 }
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
420 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
421
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
422 rap <- rap %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
423 select(USM, everything()) %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
424 mutate(P_usm = str_replace_all(P_usm, " ", "")) %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
425 mutate(wlieu = str_replace_all(wlieu, " ", "")) %>%
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
426 mutate(stade = str_replace_all(stade, " ", "")) %>%
5
e0d592bb516e "planemo upload for repository https://forgemia.inra.fr/redelac commit 1b434482800e773a592b5fc6f472e7df465e91ce"
siwaa
parents: 1
diff changeset
427 mutate(nomversion = str_replace_all(P_usm, " ", "")) %>%
e0d592bb516e "planemo upload for repository https://forgemia.inra.fr/redelac commit 1b434482800e773a592b5fc6f472e7df465e91ce"
siwaa
parents: 1
diff changeset
428 mutate(across(4:10, as.numeric)) %>%
e0d592bb516e "planemo upload for repository https://forgemia.inra.fr/redelac commit 1b434482800e773a592b5fc6f472e7df465e91ce"
siwaa
parents: 1
diff changeset
429 mutate(across(14:ncol(rap), as.numeric)) %>%
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
430 separate(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
431 col = USM,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
432 into = c(
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
433 "upc",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
434 "sol",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
435 "systeme",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
436 "rotation",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
437 "tete_rotation",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
438 "horizon",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
439 "annee",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
440 "culture"
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
441 ),
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
442 sep = "-",
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
443 remove = FALSE
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
444 )
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
445
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
446 if (baseOut) {
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
447
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
448 write_delim(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
449 x = rap,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
450 file = paste0(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
451 workspace,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
452 "/analyse_simulations_STICS/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
453 systeme,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
454 "/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
455 rotation,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
456 "/report-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
457 rotation,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
458 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
459 upc,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
460 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
461 sol,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
462 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
463 scenario,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
464 ".csv"
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
465 ),
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
466 delim = ";"
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
467 )
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
468 }
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
469
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
470 if (parquetOut) {
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 if (dir.exists(paste0(
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
473 workspace,
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
474 "/analyse_simulations_STICS/",
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
475 "/donnees_parquet_report/"
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
476 )) == FALSE) {
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
477 dir.create(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
478 paste0(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
479 workspace,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
480 "/analyse_simulations_STICS/",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
481 "/donnees_parquet_report/"
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 recursive = TRUE
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 }
0
7f8f474a7bd7 "planemo upload for repository https://forgemia.inra.fr/redelac commit 29a2aee3b41d8da4d056600ea5cf4af978c714b9"
siwaa
parents:
diff changeset
486
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
487 write_parquet(
16
816fbce5cf58 "planemo upload for repository https://forgemia.inra.fr/redelac commit cfb92a37e4cb2054f9d8caa5bd8f46c9f4a7be68"
siwaa
parents: 15
diff changeset
488 rap,
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
489 paste0(
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
490 workspace,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
491 "/analyse_simulations_STICS/",
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 "report-",
17
fa4e7fd1d3f7 "planemo upload for repository https://forgemia.inra.fr/redelac commit d102b73678f095281635bf5f00d86a4a77a1ae9e"
siwaa
parents: 16
diff changeset
494 systeme,
fa4e7fd1d3f7 "planemo upload for repository https://forgemia.inra.fr/redelac commit d102b73678f095281635bf5f00d86a4a77a1ae9e"
siwaa
parents: 16
diff changeset
495 "-",
15
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
496 rotation,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
497 "-",
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
498 upc,
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 sol,
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 scenario,
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
503 ".parquet"
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
504
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
505 ))
af807768332e "planemo upload for repository https://forgemia.inra.fr/redelac commit 179e64aac208ae8af4d7416a7d5ff4b9da572850"
siwaa
parents: 5
diff changeset
506 }
18
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
507 }
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
508
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
509 afterOutputsTime <- Sys.time()
19
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
510
18
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
511 durOutT <-
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
512 lubridate::as.duration(lubridate::interval(beforeOutputsTime, afterOutputsTime))
19
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
513
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
514
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
515 durGenXP <- lubridate::as.period(durGenX)
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
516 durGenTP <- lubridate::as.period(durGenT)
18
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
517 durOutTP <- lubridate::as.period(durOutT)
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
518
19
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
519 endTime <- Sys.time()
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
520
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
521 dur <-
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
522 lubridate::as.period(lubridate::as.duration(lubridate::interval(startTime, endTime)))
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
523
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
524 print("REDELACSticsInputGenerator Report")
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
525 print("=================================")
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
526 print(paste("number of usms: ", nrow(usms_param)))
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
527 print(paste("redelac optimization:", redelac))
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
528 print(paste("process in parallel:", parallel))
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
529 print(paste("nbslots:", nbSlots))
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
530
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
531 sprintf(
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
532 'overall duration: %g jour(s) %g heure(s) %g minute(s) %g seconde(s)',
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
533 lubridate::day(dur),
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
534 lubridate::hour(dur),
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
535 lubridate::minute(dur),
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
536 lubridate::second(dur)
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
537 )
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
538 print(
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
539 "==================================================================================="
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
540 )
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
541
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
542 sprintf(
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
543 'inside gen_usms_xml duration: %g jour(s) %g heure(s) %g minute(s) %g seconde(s)',
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
544 lubridate::day(durGenXP),
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
545 lubridate::hour(durGenXP),
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
546 lubridate::minute(durGenXP),
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
547 lubridate::second(durGenXP)
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
548 )
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
549 print(
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
550 "==================================================================================="
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
551 )
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
552
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
553 sprintf(
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
554 'inside gen_usms_xml2txt duration: %g jour(s) %g heure(s) %g minute(s) %g seconde(s)',
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
555 lubridate::day(durGenTP),
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
556 lubridate::hour(durGenTP),
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
557 lubridate::minute(durGenTP),
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
558 lubridate::second(durGenTP)
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
559 )
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
560 print(
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
561 "==================================================================================="
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
562 )
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
563
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
564 sprintf(
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
565 'Simulations duration: %g jour(s) %g heure(s) %g minute(s) %g seconde(s)',
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
566 lubridate::day(durSimsTP),
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
567 lubridate::hour(durSimsTP),
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
568 lubridate::minute(durSimsTP),
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
569 lubridate::second(durSimsTP)
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
570 )
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
571 print(
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
572 "==================================================================================="
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
573 )
8848db582840 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9f38541b8f84bf16077819d47c96dbc69e3d1675"
siwaa
parents: 18
diff changeset
574
18
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
575 sprintf(
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
576 'outputs generating duration: %g jour(s) %g heure(s) %g minute(s) %g seconde(s)',
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
577 lubridate::day(durOutTP),
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
578 lubridate::hour(durOutTP),
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
579 lubridate::minute(durOutTP),
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
580 lubridate::second(durOutTP)
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
581 )
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
582 print(
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
583 "==================================================================================="
8293d67cd1a9 "planemo upload for repository https://forgemia.inra.fr/redelac commit b972382172a3923486a799d46efe363d21e8ea1d"
siwaa
parents: 17
diff changeset
584 )