@@ -123,25 +122,26 @@ The text file is not included in the package as its licence is not clear.
Examples


-
# NOT RUN {
+if (FALSE) {
   # This is the code that was used to extract the data
   scenario_path <- "inst/extdata/FOCUS_Step_12_scenarios.txt"
-  scenarios <- readLines(scenario_path)[9:38]
-  FOCUS_Step_12_scenarios <- list()
-  sce <- read.table(text = scenarios, sep = "\t", header = TRUE, check.names = FALSE,
+  scenarios <- readLines(scenario_path)[9:38]
+  FOCUS_Step_12_scenarios <- list()
+  sce <- read.table(text = scenarios, sep = "\t", header = TRUE, check.names = FALSE,
     stringsAsFactors = FALSE)
   FOCUS_Step_12_scenarios$names = sce$Crop
-  rownames(sce) <- sce$Crop
+  rownames(sce) <- sce$Crop
   FOCUS_Step_12_scenarios$drift = sce[, 3:11]
   FOCUS_Step_12_scenarios$interception = sce[, 12:15]
-  sce_2 <- readLines(scenario_path)[41:46]
-  rd <- read.table(text = sce_2, sep = "\t")[1:2]
-  rd_mat <- matrix(rd$V2, nrow = 3, byrow = FALSE)
-  dimnames(rd_mat) = list(Time = c("Oct-Feb", "Mar-May", "Jun-Sep"),
-                          Region = c("North", "South"))
+  sce_2 <- readLines(scenario_path)[41:46]
+  rd <- read.table(text = sce_2, sep = "\t")[1:2]
+  rd_mat <- matrix(rd$V2, nrow = 3, byrow = FALSE)
+  dimnames(rd_mat) = list(Time = c("Oct-Feb", "Mar-May", "Jun-Sep"),
+                          Region = c("North", "South"))
   FOCUS_Step_12_scenarios$rd = rd_mat
-  save(FOCUS_Step_12_scenarios, file = "data/FOCUS_Step_12_scenarios.RData")
-# }
+  save(FOCUS_Step_12_scenarios, file = "data/FOCUS_Step_12_scenarios.RData")
+}
+
 # And this is the resulting data
 FOCUS_Step_12_scenarios
#> $names
 #>  [1] "cereals, spring"                  "cereals, winter"                 
@@ -304,19 +304,23 @@ The text file is not included in the package as its licence is not clear.
Step 1/2 scenario data as distributed with the FOCUS Step 1/2 calculator

Examples
