Mercurial > repos > siwaa > redelac_stics_g

comparison redelacSticsInputGenerator.R @ 16:f2fe11a20371 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 27e73ca1d96c6eea20bcad339e074aab0d206d4c"
author siwaa
date Mon, 22 Jan 2024 15:15:07 +0000
parents 413cec4dfe5f
children 4d0807472ad3
comparison
equal deleted inserted replaced
15:413cec4dfe5f 16:f2fe11a20371
103 lubridate::as.duration(lubridate::interval(beforeGenXmlTime, 103 lubridate::as.duration(lubridate::interval(beforeGenXmlTime,
104 afterGenXmlTime)) 104 afterGenXmlTime))
105 105
106 beforeGenTxtTime <- Sys.time() 106 beforeGenTxtTime <- Sys.time()
107 107
108
109 print("betwin")
110
111
112 foreach (i = ids, 108 foreach (i = ids,
113 .options.future = list(packages = c("foreach", "SticsRFiles"))) %dofuture% { 109 .options.future = list(packages = c("foreach", "SticsRFiles"))) %dofuture% {
114 print("toto")
115 gen_usms_xml2txt( 110 gen_usms_xml2txt(
116 javastics = javastics_path, 111 javastics = javastics_path,
117 workspace = workspace, 112 workspace = workspace,
118 out_dir = txt_path, 113 out_dir = txt_path,
119 usms_file = paste0("usms__", i, ".xml"), 114 usms_file = paste0("usms__", i, ".xml"),
120 redelac = redelac, 115 redelac = redelac,
121 parallel = parallel, 116 parallel = parallel,
122 verbose = FALSE 117 verbose = FALSE
123 ) 118 )
124 print("titi")
125 } 119 }
126 120
127 afterGenTxtTime <- Sys.time() 121 afterGenTxtTime <- Sys.time()
128 durGenT <- 122 durGenT <-
129 lubridate::as.duration(lubridate::interval(beforeGenTxtTime, afterGenTxtTime)) 123 lubridate::as.duration(lubridate::interval(beforeGenTxtTime, afterGenTxtTime))