Mercurial > repos > siwaa > redelac_stics_g

annotate redelacSticsInputGenerator.R @ 17:4d0807472ad3 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"planemo upload for repository https://forgemia.inra.fr/redelac commit 9c5802d9b947f1e59bd5df610ebe5dfc89745be6"
author siwaa
date Tue, 23 Jan 2024 18:51:34 +0000
parents f2fe11a20371
children
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)
14
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
6 library(doFuture)
15
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
7 library(stringr)
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
8
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
9 sessionInfo()
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
10
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
11 startTime <- Sys.time()
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
12
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
13 workspace <- paste0(getwd(), "/WS")
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
14 javastics_path <- getwd()
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
15
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
16 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
17 dir.create(txt_path, recursive = T)
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
18
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
19 USMsFile <- "USMs.csv"
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
20 TecFile <- "Tec.csv"
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
21 IniFile <- "Ini.csv"
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
22 StationFile <- "Station.csv"
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
23
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
24 args = commandArgs(trailingOnly = TRUE)
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
25
14
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
26 redelac <- (args[1] == "optim")
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
27 parallel <- (args[2] == "parallel")
14
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
28 print(paste("parallel:", parallel, args[2]))
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
29 nbSlots <- as.integer(args[3])
14
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
30 print(paste("nbslots:", nbSlots))
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
31
6
bb1ac57f8545 "planemo upload for repository https://forgemia.inra.fr/redelac commit 5c06627ff4fa4a31f7fae2cd625f32a29ed2d773"
siwaa
parents: 5
diff changeset
32 # USMs file loading
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
33
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
34 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
35 select(
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
36 usm_name,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
37 datedebut,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
38 datefin,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
39 finit,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
40 nomsol,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
41 fstation,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
42 fclim1,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
43 fclim2,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
44 culturean,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
45 nbplantes,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
46 codesimul,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
47 fplt_1,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
48 ftec_1,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
49 flai_1,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
50 fplt_2,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
51 ftec_2,
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
52 flai_2
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
53 )
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
54
6
bb1ac57f8545 "planemo upload for repository https://forgemia.inra.fr/redelac commit 5c06627ff4fa4a31f7fae2cd625f32a29ed2d773"
siwaa
parents: 5
diff changeset
55 # Tec files loading and generating xml
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
56
6
bb1ac57f8545 "planemo upload for repository https://forgemia.inra.fr/redelac commit 5c06627ff4fa4a31f7fae2cd625f32a29ed2d773"
siwaa
parents: 5
diff changeset
57 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
58 columnToRemove <-
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
59 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
60 columnToKeep <-
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
61 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
62
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
63 tec_param <- subset(tec_param, select = columnToKeep)
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
64
3
e344100f3354 "planemo upload for repository https://forgemia.inra.fr/redelac commit ff64e62033c2485113100d60c38be73e59ef119c"
siwaa
parents: 0
diff changeset
65 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
66
6
bb1ac57f8545 "planemo upload for repository https://forgemia.inra.fr/redelac commit 5c06627ff4fa4a31f7fae2cd625f32a29ed2d773"
siwaa
parents: 5
diff changeset
67 # Ini files loading and generating xml
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
68
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
69 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
70
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
71 gen_ini_xml(param_df = ini_param, out_dir = workspace)
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
72
6
bb1ac57f8545 "planemo upload for repository https://forgemia.inra.fr/redelac commit 5c06627ff4fa4a31f7fae2cd625f32a29ed2d773"
siwaa
parents: 5
diff changeset
73 # Station files loading and generating xml
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
74
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
75 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
76
0
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
77 gen_sta_xml(param_df = sta_param, out_dir = workspace)
c7d424481b03 "planemo upload for repository https://forgemia.inra.fr/redelac"
siwaa
parents:
diff changeset
78
14
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
79 if (parallel) {
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
80 doFuture::registerDoFuture()
17
4d0807472ad3 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9c5802d9b947f1e59bd5df610ebe5dfc89745be6"
siwaa
parents: 16
diff changeset
81 future::plan(multisession, workers = nbSlots)
4d0807472ad3 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9c5802d9b947f1e59bd5df610ebe5dfc89745be6"
siwaa
parents: 16
diff changeset
82 `%dordopar%` <- `%dofuture%`
4d0807472ad3 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9c5802d9b947f1e59bd5df610ebe5dfc89745be6"
siwaa
parents: 16
diff changeset
83 } else {
4d0807472ad3 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9c5802d9b947f1e59bd5df610ebe5dfc89745be6"
siwaa
parents: 16
diff changeset
84 `%dordopar%` <- `%do%`
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
85 }
5
4f8d87b9c246 "planemo upload for repository https://forgemia.inra.fr/redelac commit b3a95e69b8c2496ff3ec12c854404798d8bc55b1"
siwaa
parents: 3
diff changeset
86
14
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
87 beforeGenXmlTime <- Sys.time()
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
88
15
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
89 #gen_usms_xml(file = file.path(workspace, "usms.xml"),
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
90 # param_df = usms_param)
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
91
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
92 chunckSize <- 1000
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
93 nbUSMs <- nrow(usms_param)
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
94
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
95 ids <- seq(1, nbUSMs, chunckSize)
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
96
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
97 foreach (i = ids,
17
4d0807472ad3 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9c5802d9b947f1e59bd5df610ebe5dfc89745be6"
siwaa
parents: 16
diff changeset
98 .options.future = list(packages = c("foreach", "SticsRFiles"))) %dordopar% {
15
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
99 gen_usms_xml(file = file.path(workspace, paste0("usms__", i, ".xml")),
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
100 param_df = usms_param[i:min(i + chunckSize - 1, nbUSMs),])
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
101 }
14
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
102
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
103 afterGenXmlTime <- Sys.time()
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
104 durGenX <-
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
105 lubridate::as.duration(lubridate::interval(beforeGenXmlTime,
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
106 afterGenXmlTime))
15
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
107
14
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
108 beforeGenTxtTime <- Sys.time()
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
109
15
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
110 foreach (i = ids,
17
4d0807472ad3 "planemo upload for repository https://forgemia.inra.fr/redelac commit 9c5802d9b947f1e59bd5df610ebe5dfc89745be6"
siwaa
parents: 16
diff changeset
111 .options.future = list(packages = c("foreach", "SticsRFiles"))) %dordopar% {
15
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
112 gen_usms_xml2txt(
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
113 javastics = javastics_path,
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
114 workspace = workspace,
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
115 out_dir = txt_path,
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
116 usms_file = paste0("usms__", i, ".xml"),
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
117 redelac = redelac,
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
118 parallel = parallel,
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
119 verbose = FALSE
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
120 )
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
121 }
14
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
122
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
123 afterGenTxtTime <- Sys.time()
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
124 durGenT <-
15
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
125 lubridate::as.duration(lubridate::interval(beforeGenTxtTime, afterGenTxtTime))
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
126
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
127 afterGenTxtTime <- Sys.time()
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
128 durGenT <-
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
129 lubridate::as.duration(lubridate::interval(beforeGenTxtTime, afterGenTxtTime))
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
130
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
131 endTime <- Sys.time()
9
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 dur <-
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
134 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
135 durGenXP <- lubridate::as.period(durGenX)
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
136 durGenTP <- lubridate::as.period(durGenT)
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
137
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
138 print("REDELACSticsInputGenerator Report")
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
139 print("=================================")
14
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
140 print(paste("number of usms: ", nrow(usms_param)))
15
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
141 print(paste("redelac optimization:", redelac))
14
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
142 print(paste("process in parallel:", parallel))
812bb8097dac "planemo upload for repository https://forgemia.inra.fr/redelac commit d16b9ecdb4dd51b69a6aaa4ab298b82455fe0267"
siwaa
parents: 10
diff changeset
143 print(paste("nbslots:", nbSlots))
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 sprintf(
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
146 '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
147 lubridate::day(dur),
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
148 lubridate::hour(dur),
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
149 lubridate::minute(dur),
15
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
150 lubridate::second(dur)
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
151 )
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
152
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
153 sprintf(
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
154 '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
155 lubridate::day(durGenXP),
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
156 lubridate::hour(durGenXP),
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
157 lubridate::minute(durGenXP),
15
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
158 lubridate::second(durGenXP)
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
159 )
9
2a6d7d053ba7 "planemo upload for repository https://forgemia.inra.fr/redelac commit adcac73e150f1f821b4b7f7673a490dc0fadc936"
siwaa
parents: 7
diff changeset
160
7
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
161 sprintf(
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
162 '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
163 lubridate::day(durGenTP),
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
164 lubridate::hour(durGenTP),
fb6f7d60508d "planemo upload for repository https://forgemia.inra.fr/redelac commit d1c69d78e9ccfe06ceb7609dce59b438cd94d9d8"
siwaa
parents: 6
diff changeset
165 lubridate::minute(durGenTP),
15
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
166 lubridate::second(durGenTP)
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
167 )
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
168 print(
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
169 "==================================================================================="
413cec4dfe5f "planemo upload for repository https://forgemia.inra.fr/redelac commit e5eb5cacd8c91c5a5a8fa571e31b54d30e988733"
siwaa
parents: 14
diff changeset
170 )