Nothing
createReservoir.base <-
function(type,name,priority,downstream,netEvaporation,
seepageFraction,seepageObject,geometry,plant,
penstock,initialStorage)
{
reservoir<-list(type=type,
name=name,
label=runif(1),
priority=priority,
downstream=downstream,
netEvaporation=netEvaporation,
seepageFraction=seepageFraction,
seepageObject=seepageObject,
geometry=geometry,
plant=plant,
penstock=penstock,
initialStorage=initialStorage)
return(reservoir)
}
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.