Mercurial > repos > siwaa > redelac_stics_g

annotate redelacSticsInputGenerator.R @ 9:2a6d7d053ba7 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 adcac73e150f1f821b4b7f7673a490dc0fadc936"
author siwaa
date Mon, 25 Sep 2023 16:25:51 +0000
parents fb6f7d60508d
children f707c2fb725b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
1 library(SticsRFiles)
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
2 library(dplyr)
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
3 library(lubridate)
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
4 library(parallel)
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
5 library(doParallel)
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
6
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
7 sessionInfo()
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
8
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
9 startTime <- Sys.time()
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
10
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
11 workspace <- paste0(getwd(), "/WS")
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
12 javastics_path <- getwd()
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
13
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
14 txt_path <- paste0(getwd(), "/WS/txt_files")
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
15 dir.create(txt_path, recursive = T)
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
16
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
17 USMsFile <- "USMs.csv"
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
18 TecFile <- "Tec.csv"
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
19 IniFile <- "Ini.csv"
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
20 StationFile <- "Station.csv"
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
21
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
22 args = commandArgs(trailingOnly = TRUE)
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
23
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
24 genUSMsXmlOneAfterOther <- (args[1] == "usmx_one_after_other")
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
25 parallel <- (args[2] == "parallel")
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
26 nbSlots <- as.integer(args[3])
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
27
6
bb1ac57f8545 "planemo upload for repository https://forgemia.inra.fr/redelac commit 5c06627ff4fa4a31f7fae2cd625f32a29ed2d773"
siwaa
parents: 5
diff changeset
28 # USMs file loading
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
29
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
30 usms_param <- read_params_table(file.path(workspace, USMsFile)) %>%
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
31 select(
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
32 usm_name,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
33 datedebut,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
34 datefin,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
35 finit,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
36 nomsol,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
37 fstation,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
38 fclim1,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
39 fclim2,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
40 culturean,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
41 nbplantes,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
42 codesimul,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
43 fplt_1,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
44 ftec_1,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
45 flai_1,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
46 fplt_2,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
47 ftec_2,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
48 flai_2
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
49 )
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
50
6
bb1ac57f8545 "planemo upload for repository https://forgemia.inra.fr/redelac commit 5c06627ff4fa4a31f7fae2cd625f32a29ed2d773"
siwaa
parents: 5
diff changeset
51 # Tec files loading and generating xml
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
52
6
bb1ac57f8545 "planemo upload for repository https://forgemia.inra.fr/redelac commit 5c06627ff4fa4a31f7fae2cd625f32a29ed2d773"
siwaa
parents: 5
diff changeset
53 tec_param <- read_params_table(file.path(workspace, TecFile))
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
54 columnToRemove <-
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
55 names(tec_param[grep("juleclair|nbinfloecl", names(tec_param))])
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
56 columnToKeep <-
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
57 names(tec_param)[names(tec_param) %in% columnToRemove == FALSE]
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
58
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
59 tec_param <- subset(tec_param, select = columnToKeep)
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
60
3
e344100f3354 "planemo upload for repository https://forgemia.inra.fr/redelac commit ff64e62033c2485113100d60c38be73e59ef119c"
siwaa
parents: 0
diff changeset
61 gen_tec_xml(param_df = tec_param, out_dir = workspace)
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
62
6
bb1ac57f8545 "planemo upload for repository https://forgemia.inra.fr/redelac commit 5c06627ff4fa4a31f7fae2cd625f32a29ed2d773"
siwaa
parents: 5
diff changeset
63 # Ini files loading and generating xml
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
64
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
65 ini_param <- read_params_table(file.path(workspace, IniFile))
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
66
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
67 gen_ini_xml(param_df = ini_param, out_dir = workspace)
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
68
6
bb1ac57f8545 "planemo upload for repository https://forgemia.inra.fr/redelac commit 5c06627ff4fa4a31f7fae2cd625f32a29ed2d773"
siwaa
parents: 5
diff changeset
69 # Station files loading and generating xml
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
70
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
71 sta_param <- read_params_table(file.path(workspace, StationFile))
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
72
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
73 gen_sta_xml(param_df = sta_param, out_dir = workspace)
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
74
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
75 if (genUSMsXmlOneAfterOther) {
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
76
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
77 durGenX <- lubridate::as.duration(0)
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
78 durGenT <- lubridate::as.duration(0)
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
79
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
80 if (parallel) {
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
81 cl <- makeCluster(nbSlots)
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
82 print(cl)
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
83 registerDoParallel(cl)
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
84 `%dordopar%` <- `%dopar%`
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
85 } else {
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
86 `%dordopar%` <- `%do%`
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
87 }
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
88
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
89 # looping on USMs
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
90 loopRes <- foreach::foreach(i = 1:nrow(usms_param),
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
91 .packages = c("SticsRFiles", "lubridate")) %dordopar% {
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
92
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
93 beforeGenXmlTimeI <- Sys.time()
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
94
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
95 usmxFileName = paste0("usms", as.character(i) , ".xml")
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
96
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
97 usmxFilePath = file.path(workspace, usmxFileName)
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
98
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
99 gen_usms_xml(file = usmxFilePath,
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
100 param_df = usms_param[i, ])
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
101
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
102 afterGenXmlTimeI <- Sys.time()
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
103 durGenXI <-
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
104 lubridate::as.duration(lubridate::interval(beforeGenXmlTimeI,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
105 afterGenXmlTimeI))
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
106
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
107 # one after the other generating txt folder
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
108
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
109 beforeGenTxtTimeI <- Sys.time()
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
110
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
111 gen_usms_xml2txt(
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
112 usms_file = usmxFileName,
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
113 javastics = javastics_path,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
114 workspace = workspace,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
115 out_dir = txt_path,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
116 verbose = TRUE
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
117 )
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
118
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
119 afterGenTxtTimeI <- Sys.time()
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
120 durGenTI <-
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
121 lubridate::as.duration(lubridate::interval(beforeGenTxtTimeI,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
122 afterGenTxtTimeI))
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
123
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
124 return(c(durGenXI, durGenTI))
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
125 }
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
126
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
127 if (parallel) stopCluster(cl)
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
128
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
129 durDS <- as.data.frame(do.call(rbind, loopRes))
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
130 durGenX <- sum(durDS[1])
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
131 durGenT <- sum(durDS[2])
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
132
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
133 } else {
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
134
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
135 beforeGenXmlTime <- Sys.time()
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
136
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
137 gen_usms_xml(file = file.path(workspace, "usms.xml"),
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
138 param_df = usms_param)
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
139
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
140 afterGenXmlTime <- Sys.time()
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
141 durGenX <-
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
142 lubridate::as.duration(lubridate::interval(beforeGenXmlTime,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
143 afterGenXmlTime))
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
144
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
145 beforeGenTxtTime <- Sys.time()
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
146
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
147 gen_usms_xml2txt(
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
148 javastics = javastics_path,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
149 workspace = workspace,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
150 out_dir = txt_path,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
151 verbose = TRUE
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
152 )
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
153
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
154 afterGenTxtTime <- Sys.time()
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
155 durGenT <-
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
156 lubridate::as.duration(lubridate::interval(beforeGenTxtTime,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
157 afterGenTxtTime))
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
158
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
159 }
5
4f8d87b9c246 "planemo upload for repository https://forgemia.inra.fr/redelac commit b3a95e69b8c2496ff3ec12c854404798d8bc55b1"
siwaa
parents: 3
diff changeset
160
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
161 endTime <- Sys.time()
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
162
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
163 dur <-
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
164 lubridate::as.period(lubridate::as.duration(lubridate::interval(startTime, endTime)))
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
165 durGenXP <- lubridate::as.period(durGenX)
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
166 durGenTP <- lubridate::as.period(durGenT)
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
167
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
168 print("REDELACSticsInputGenerator Report")
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
169 print("=================================")
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
170 print(paste0("number of usms: ", nrow(usms_param)))
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
171 print(paste("usms.xml one after the other:", genUSMsXmlOneAfterOther))
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
172
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
173 sprintf(
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
174 'overall duration: %g jour(s) %g heure(s) %g minute(s) %g seconde(s)',
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
175 lubridate::day(dur),
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
176 lubridate::hour(dur),
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
177 lubridate::minute(dur),
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
178 lubridate::second(dur))
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
179
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
180 sprintf(
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
181 'inside gen_usms_xml duration: %g jour(s) %g heure(s) %g minute(s) %g seconde(s)',
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
182 lubridate::day(durGenXP),
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
183 lubridate::hour(durGenXP),
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
184 lubridate::minute(durGenXP),
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
185 lubridate::second(durGenXP))
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
186
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
187 sprintf(
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
188 'inside gen_usms_xml2txt duration: %g jour(s) %g heure(s) %g minute(s) %g seconde(s)',
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
189 lubridate::day(durGenTP),
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
190 lubridate::hour(durGenTP),
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
191 lubridate::minute(durGenTP),
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
192 lubridate::second(durGenTP))