fix regular expressions for experiment command line argument

risk_yield_loss.R

@@ -252,12 +252,12 @@ if (length(commandArgs(trailingOnly = TRUE)) > 0) {
       stop(paste("Invalid parameter sowing_scenario:", sQuote(scen)))
     }
   }
-  if (any(grepl("experiment", commandArgs(trailingOnly = TRUE)))) {
+  if (any(grepl("^experiment=", commandArgs(trailingOnly = TRUE)))) {
     param <- strsplit(
-      grep("experiment", commandArgs(trailingOnly = TRUE), value = TRUE)[1],
+      grep("^experiment=", commandArgs(trailingOnly = TRUE), value = TRUE)[1],
       split = "="
     )
-    exp <- grep("experiment", unlist(param), invert = TRUE, value = TRUE)
+    exp <- grep("^experiment$", unlist(param), invert = TRUE, value = TRUE)
     if (nchar(exp) > 0) {
       print(
         paste("Parameter experiment provided as command line argument:", exp)