Mercurial > repos > siwaa > redelac_stics_g
diff redelacSticsInputGenerator.R @ 5:4f8d87b9c246 draft
"planemo upload for repository https://forgemia.inra.fr/redelac commit b3a95e69b8c2496ff3ec12c854404798d8bc55b1"
author | siwaa |
---|---|
date | Tue, 04 Jul 2023 16:37:44 +0000 |
parents | e344100f3354 |
children | bb1ac57f8545 |
line wrap: on
line diff
--- a/redelacSticsInputGenerator.R Thu Jun 29 11:03:20 2023 +0000 +++ b/redelacSticsInputGenerator.R Tue Jul 04 16:37:44 2023 +0000 @@ -17,13 +17,11 @@ # USMs file usms_param <- read_params_table(file.path(workspace, USMsFile)) %>% select(usm_name,datedebut,datefin,finit,nomsol,fstation,fclim1,fclim2,culturean,nbplantes,codesimul,fplt_1,ftec_1,flai_1,fplt_2,ftec_2,flai_2) -gen_usms_xml(file = file.path(workspace, "usms.xml"), param_df = usms_param) # Tec files tec_param <- read_params_table(file.path(workspace, TecFile)) %>% select(!c(annee, date_min, date_max, Date_res_1, Date_res_2, Type_res_1, Type_res_2, Date_trav_1, Date_trav_2, Date_trav_3, Type_trav_1, Type_trav_2 ,Type_trav_3, plante_sem, date_sem, starts_with("nom_vari"), date_ferti_1, date_ferti_2, date_ferti_3, type_eng_1, type_eng_2, type_eng_3, date_rec, date_des, juleclair, nbinfloecl)) gen_tec_xml(param_df = tec_param, out_dir = workspace) -# select(!c(annee, date_min, date_max, Date_res_1, Date_res_2, Type_res_1, Type_res_2, Date_trav_1, Date_trav_2, Date_trav_3, Type_trav_1, Type_trav_2 ,Type_trav_3, plante_sem, date_sem) # Ini files ini_param <- read_params_table(file.path(workspace, IniFile)) @@ -35,14 +33,18 @@ # Generate STICS txt files------------------------------------------------------------------------------ # List of USMs -list_usms <- SticsRFiles::get_usms_list(file = file.path(workspace,"usms.xml")) ### Generate txt files into individual folders -# generate text files -gen_usms_xml2txt(javastics = javastics_path, - workspace = workspace, - out_dir = txt_path, - verbose = TRUE, - usm = list_usms) +for(i in 1:nrow(usms_param)) { + row <- usms_param[i,] + # do stuff with row + + gen_usms_xml(file = file.path(workspace, "usms.xml"), param_df = row) + + gen_usms_xml2txt(javastics = javastics_path, + workspace = workspace, + out_dir = txt_path, + verbose = TRUE) +} \ No newline at end of file