# NOT RUN {
## This example will read one of the examples distributed with APSIM-X
## but write to a temporary directory
tmp.dir <- tempdir()
## Edit Bulk density
extd.dir <- system.file("extdata", package = "apsimx")
bds <- c(1.02, 1.03, 1.09, 1.16, 1.18, 1.19, 1.20)
edit_apsimx("Wheat.apsimx", src.dir = extd.dir,
wrt.dir = tmp.dir,
node = "Soil",
soil.child = "Water",
parm = "BD", value = bds,
verbose = FALSE)
## Inspect file
inspect_apsimx("Wheat-edited.apsimx", src.dir = tmp.dir,
node = "Soil", soil.child = "Water")
## To delete the file...
file.remove(file.path(tmp.dir, "Wheat-edited.apsimx"))
## Edit the fertilizer amount in 'Maize.apsimx'
edit_apsimx("Maize.apsimx", src.dir = extd.dir,
wrt.dir = tmp.dir, node = "Manager",
manager.child = "SowingFertiliser",
parm = "Amount", value = 200, verbose = TRUE)
## Make sure it worked
inspect_apsimx("Maize-edited.apsimx", src.dir = tmp.dir, node = "Manager")
## Remove the file
file.remove(file.path(tmp.dir, "Maize-edited.apsimx"))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab