Difference between revisions of "Test branch"

# This is code Op_enXXXX/ on page [[Garden Tower]]
library(OpasnetUtils)
objects.latest(paste('Op_en', PAGEID, sep = ''), code_name = 'gardenTower')
gardenTower <- EvalOutput(gardenTower)
oprint(summary(gardenTower))

# This is code Op_enXXXX/vegetable on page [[Garden Tower]]
library(OpasnetUtils)
vegetable <- Ovariable('vegetable',
ddata = paste('Op_en', PAGEID, sep = ''),
subset = 'vegetable')
objects.store(vegetable)
cat('Object',vegetable@name, 'stored.n')

# This is code Op_enXXXX/gardenTower on page [[Garden Tower]]
library(OpasnetUtils)
gardenTower <- Ovariable('gardenTower',
dependencies = data.frame(
Name = c('vegeproduction', 'waterconsumption')
),
formula = function(...) {
gardenTower <- vegeproduction / 1000 # Scale to kg
return(gardenTower)
}
)
objects.store(gardenTower)
cat('Object ',gardenTower@name, ' stored.n')