tests/test_check_apsimx.R

In apsimx: Inspect, Read, Edit and Run 'APSIM' "Next Generation" and 'APSIM' Classic

## Testing the check_apsimx function with a variety of files
require(apsimx)
packageVersion("apsimx")
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)  
  # }
}