Nothing
## 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)
# }
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.