Mercurial > repos > siwaa > redelac_stics_t
comparison redelacSticsTool.R @ 5:e0d592bb516e draft
"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 | af807768332e |
comparison
equal
deleted
inserted
replaced
| 4:a41001337384 | 5:e0d592bb516e |
|---|---|
| 234 as.character(successive_usms_tab_split[[j]][i, c(3:(2 + nusms))]) | 234 as.character(successive_usms_tab_split[[j]][i, c(3:(2 + nusms))]) |
| 235 | 235 |
| 236 list_successive_usms <- list(vec) | 236 list_successive_usms <- list(vec) |
| 237 | 237 |
| 238 sim_options <- stics_wrapper_options( | 238 sim_options <- stics_wrapper_options( |
| 239 javastics = javastics_path, | 239 stics_exe = "stics_modulo", |
| 240 stics_exe = paste0(javastics_path, "/bin/stics_modulo"), | |
| 241 workspace = txt_path, | 240 workspace = txt_path, |
| 242 verbose = TRUE, | 241 verbose = TRUE, |
| 242 force = TRUE, | |
| 243 successive = list_successive_usms | 243 successive = list_successive_usms |
| 244 ) | 244 ) |
| 245 | 245 |
| 246 list_usms <- vec | 246 list_usms <- vec |
| 247 | 247 |
| 396 rap <- rap %>% | 396 rap <- rap %>% |
| 397 select(USM, everything()) %>% | 397 select(USM, everything()) %>% |
| 398 mutate(P_usm = str_replace_all(P_usm, " ", "")) %>% | 398 mutate(P_usm = str_replace_all(P_usm, " ", "")) %>% |
| 399 mutate(wlieu = str_replace_all(wlieu, " ", "")) %>% | 399 mutate(wlieu = str_replace_all(wlieu, " ", "")) %>% |
| 400 mutate(stade = str_replace_all(stade, " ", "")) %>% | 400 mutate(stade = str_replace_all(stade, " ", "")) %>% |
| 401 mutate(nomversion = str_replace_all(nomversion, " ", "")) %>% | 401 mutate(nomversion = str_replace_all(P_usm, " ", "")) %>% |
| 402 mutate(across(3:9, as.numeric)) %>% | 402 mutate(across(4:10, as.numeric)) %>% |
| 403 mutate(across(13:ncol(rap), as.numeric)) %>% | 403 mutate(across(14:ncol(rap), as.numeric)) %>% |
| 404 #separate(col=P_usm,into=c("upc","sol","systeme","rotation","tete_rotation","horizon","annee","culture"),sep="-",remove = FALSE) | |
| 405 separate( | 404 separate( |
| 406 col = USM, | 405 col = USM, |
| 407 into = c( | 406 into = c( |
| 408 "upc", | 407 "upc", |
| 409 "sol", | 408 "sol", |