R Under development (unstable) (2025-03-09 r87914 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> ## Testing the check_apsimx function with a variety of files
> require(apsimx)
Loading required package: apsimx
APSIM(X) not found.
                        If APSIM(X) is installed in an alternative location,
                        set paths manually using 'apsimx_options' or 'apsim_options'.
                        You can still try as the package will look into the registry (under Windows)
> packageVersion("apsimx")
[1] '2.8.235'
> apsimx_options(warn.versions = FALSE, allow.path.spaces = TRUE)
> 
> run.apsimx.check <- get(".run.local.tests", envir = apsimx.options)
> 
> if(run.apsimx.check){
+ 
+   ex.dir <- auto_detect_apsimx_examples()
+   ex.dir.list <- dir(ex.dir, pattern = "apsimx$")
+ 
+   for(.j in seq_along(ex.dir.list)){
+     
+     file.to.check <- ex.dir.list[.j]
+     if(file.to.check == "Slurp.apsimx") next
+     
+     if(.j %in% c(2, 4, 5, 16, 17, 18, 24, 29, 30, 34)){
+       cat("Simulation check:", file.to.check, "\n")
+       check_apsimx(file.to.check, ex.dir)
+     }
+     
+     if(.j %in% c(10, 11)){
+       ## Simulation 10 is eucalyptus
+       cat("Simulation to inspect:", file.to.check, "\n")
+       capo <- capture.output(inspect_apsimx(file.to.check, ex.dir, node = "Other", parm = 3))
+     }
+     
+     if(.j %in% c(6, 7, 8, 9)){
+       ## Simulation 6 is chickpea
+       ## Simulation 7 is chicory
+       ## Simulation 8 is controlledenvironment
+       ## Simulation 9 is csvweather
+       cat("Simulation check:", file.to.check, "\n")
+       capo <- capture.output(inspect_apsimx(file.to.check, ex.dir, node = "Other", parm = 3))
+       if(file.to.check == "Chickpea.apsimx"){
+         inspect_apsimx(file.to.check, ex.dir, root = "Continuous_TOS.Cont_TOS")
+         inspect_apsimx(file.to.check, ex.dir, node = "Soil",
+                        soil.child = "InitialWater",
+                        root = "Continuous_TOS.Cont_TOS")
+         check_apsimx(file.to.check, ex.dir, root = "Continuous_TOS.Cont_TOS")        
+       }
+       if(file.to.check %in% c("Chicory.apsimx", "ControlledEnvironment.apsimx", "CsvWeather.apsimx")){
+         inspect_apsimx(file.to.check, ex.dir, root = "Simulation")
+         inspect_apsimx(file.to.check, ex.dir, node = "Soil",
+                        soil.child = "InitialWater",
+                        root = "Simulation")
+         check_apsimx(file.to.check, ex.dir, root = "Simulation")        
+       }
+     }
+ 
+     if(.j %in% c(1, 3)){
+       if(file.to.check == "BiomassRemovalFromPlant.apsimx"){
+         check_apsimx(file.to.check, ex.dir, root = "UsingFixedDates")  
+         check_apsimx(file.to.check, ex.dir, root = "SendingDatesFromOpperations")
+       }
+       if(file.to.check == "AgPasture.apsimx"){
+         pps <- inspect_apsimx(file.to.check, src.dir = ex.dir, node = "Other", parm = list(1, 3:7), print.path = TRUE)
+         for(.jj in pps){
+           rut <- strsplit(.jj, ".", fixed = TRUE)[[1]][3]
+           if(rut == "Harvested Pasture by Production Year") next
+           if(rut == "PastureByWaterAndNitrogen") next
+           if(rut == "CO2xBaseTemperature") next
+           if(rut == "CO2xHeatOnset ") next
+           check_apsimx(file.to.check, ex.dir, root = rut)
+         }
+       }
+     }
+   }
+ }
> 
> #### Check files in extd.dir
> 
> if(run.apsimx.check){
+   
+   ### Files that make check throw an error
+   ### 1. MaizeSoybean.apsimx
+   extd.dir <- system.file("extdata", package = "apsimx")
+   
+   apsimx.files.to.check <- dir(extd.dir, pattern = "apsimx")
+   
+   # for(.ii in seq_along(apsimx.files.to.check)){
+   #   ### Some of these files need 'root'
+   #   if(apsimx.files.to.check[[.ii]] == "Factorial.apsimx"){
+   #     for(.jj in )
+   #   }
+   #   check_apsimx(apsimx.files.to.check[[.ii]], extd.dir)  
+   # }
+ }
> 
> proc.time()
   user  system elapsed 
   0.53    0.09    0.62