Mercurial > repos > siwaa > redelac_stics_t

diff redelacSticsTool.R @ 5:e0d592bb516e 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 1b434482800e773a592b5fc6f472e7df465e91ce"
author siwaa
date Fri, 22 Mar 2024 06:57:42 +0000
parents ed9c49c6c6e1
children
line wrap: on
line diff
--- a/redelacSticsTool.R	Fri Feb 23 08:46:35 2024 +0000
+++ b/redelacSticsTool.R	Fri Mar 22 06:57:42 2024 +0000
@@ -236,10 +236,10 @@
     list_successive_usms <- list(vec)
 
     sim_options <- stics_wrapper_options(
-      javastics = javastics_path,
-      stics_exe = paste0(javastics_path, "/bin/stics_modulo"),
+      stics_exe = "stics_modulo",
       workspace = txt_path,
       verbose = TRUE,
+      force = TRUE,
       successive = list_successive_usms
     )
 
@@ -398,10 +398,9 @@
     mutate(P_usm = str_replace_all(P_usm, " ", "")) %>%
     mutate(wlieu = str_replace_all(wlieu, " ", "")) %>%
     mutate(stade = str_replace_all(stade, " ", "")) %>%
-    mutate(nomversion = str_replace_all(nomversion, " ", "")) %>%
-    mutate(across(3:9, as.numeric)) %>%
-    mutate(across(13:ncol(rap), as.numeric)) %>%
-    #separate(col=P_usm,into=c("upc","sol","systeme","rotation","tete_rotation","horizon","annee","culture"),sep="-",remove = FALSE)
+    mutate(nomversion = str_replace_all(P_usm, " ", "")) %>%
+    mutate(across(4:10, as.numeric)) %>%
+    mutate(across(14:ncol(rap), as.numeric)) %>%
     separate(
       col = USM,
       into = c(