Mercurial > repos > siwaa > redelac_stics_t

comparison redelacSticsTool.R @ 1:ed9c49c6c6e1 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 c398d524dabc89c0979403d2ff62970fc6c2b404"
author siwaa
date Wed, 07 Feb 2024 11:13:54 +0000
parents 7f8f474a7bd7
children e0d592bb516e
comparison
equal deleted inserted replaced
0:7f8f474a7bd7 1:ed9c49c6c6e1
101 101
102 ids <- seq(1, nbUSMs, chunckSize) 102 ids <- seq(1, nbUSMs, chunckSize)
103 103
104 foreach (i = ids, 104 foreach (i = ids,
105 .options.future = list(packages = c("foreach", "SticsRFiles"))) %dordopar% { 105 .options.future = list(packages = c("foreach", "SticsRFiles"))) %dordopar% {
106 gen_usms_xml(file = file.path(workspace, paste0("usms__", i, ".xml")), 106 usmsXfolder = file.path(workspace, paste0("UXF__", i))
107 dir.create(usmsXfolder)
108 gen_usms_xml(file = file.path(usmsXfolder, paste0("usms__", i, ".xml")),
107 param_df = usms_param[i:min(i + chunckSize - 1, nbUSMs),]) 109 param_df = usms_param[i:min(i + chunckSize - 1, nbUSMs),])
108 } 110 }
109 111
110 afterGenXmlTime <- Sys.time() 112 afterGenXmlTime <- Sys.time()
111 durGenX <- 113 durGenX <-
118 .options.future = list(packages = c("foreach", "SticsRFiles"))) %dordopar% { 120 .options.future = list(packages = c("foreach", "SticsRFiles"))) %dordopar% {
119 gen_usms_xml2txt( 121 gen_usms_xml2txt(
120 javastics = javastics_path, 122 javastics = javastics_path,
121 workspace = workspace, 123 workspace = workspace,
122 out_dir = txt_path, 124 out_dir = txt_path,
123 usms_file = paste0("usms__", i, ".xml"), 125 usms_file = paste0("UXF__", i, "/usms__", i, ".xml"),
124 redelac = redelac, 126 redelac = redelac,
125 parallel = parallel, 127 parallel = parallel,
126 verbose = FALSE 128 verbose = FALSE
127 ) 129 )
128 } 130 }