Fix bug in path for rotations

Grendel/scenario_02_maize-availability_file-dist.R

@@ -67,7 +67,7 @@ wdpath <- path(pathtodirs, dirs[1])
 seq(1, 10, length.out = nsteps) %>% 
   round() %>% 
   GenerateParams("GOOSE_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
-replace_rotation(new_rot = path(rot_path, "UserDefinedFarm191.rot"),
+replace_rotation(new_rot = "UserDefinedFarm191.rot",
                  old_rot = old_rot,
                  wd_path = wdpath)
 
@@ -76,7 +76,7 @@ wdpath <- path(pathtodirs, dirs[1])
 seq(1, 10, length.out = nsteps) %>% 
   round() %>% 
   GenerateParams("GOOSE_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
-replace_rotation(new_rot = path(rot_path, "UserDefinedFarm192.rot"),
+replace_rotation(new_rot = "UserDefinedFarm192.rot",
                  old_rot = old_rot,
                  wd_path = wdpath)
 
@@ -85,7 +85,7 @@ wdpath <- path(pathtodirs, dirs[1])
 seq(1, 10, length.out = nsteps) %>% 
   round() %>% 
   GenerateParams("GOOSE_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
-replace_rotation(new_rot = path(rot_path, "UserDefinedFarm193.rot"),
+replace_rotation(new_rot = "UserDefinedFarm193.rot",
                  old_rot = old_rot,
                  wd_path = wdpath)
 
@@ -100,7 +100,7 @@ wdpath <- path(pathtodirs, dirs[1])
 seq(1, 10, length.out = nsteps) %>% 
   round() %>% 
   GenerateParams("GOOSE_BN_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
-replace_rotation(new_rot = path(rot_path, "UserDefinedFarm191.rot"),
+replace_rotation(new_rot = "UserDefinedFarm191.rot",
                  old_rot = old_rot,
                  wd_path = wdpath)
 
@@ -109,7 +109,7 @@ wdpath <- path(pathtodirs, dirs[1])
 seq(1, 10, length.out = nsteps) %>% 
   round() %>% 
   GenerateParams("GOOSE_BN_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
-replace_rotation(new_rot = path(rot_path, "UserDefinedFarm192.rot"),
+replace_rotation(new_rot = "UserDefinedFarm192.rot",
                  old_rot = old_rot,
                  wd_path = wdpath)
 
@@ -118,7 +118,7 @@ wdpath <- path(pathtodirs, dirs[1])
 seq(1, 10, length.out = nsteps) %>% 
   round() %>% 
   GenerateParams("GOOSE_BN_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
-replace_rotation(new_rot = path(rot_path, "UserDefinedFarm193.rot"),
+replace_rotation(new_rot = "UserDefinedFarm193.rot",
                  old_rot = old_rot,
                  wd_path = wdpath)