Nothing
createBasin.base <-
function(name,simulation)
{
reservoirs <-list()
reachs <-list()
junctions <-list()
subbasins <-list()
diversions <-list()
timeOfCreation<-Sys.time()
basin<-list(name =name ,
reservoirs =reservoirs ,
reachs =reachs ,
junctions =junctions ,
subbasins =subbasins ,
diversions =diversions ,
simulation =simulation ,
timeOfCreation =timeOfCreation)
return(basin)
}
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.