inst/ubinc/templates/r_gui_save.R

In ubiquity: PKPD, PBPK, and Systems Pharmacology Modeling Tools

#clearing the workspace
rm(list=ls())
# Uncomment to set the script directory as the working directory
# setwd(dirname(sys.frame(tail(grep('source',sys.calls()),n=1))$ofile))
graphics.off()

require(deSolve)
require(ggplot2)
require(gdata)
require(foreach)
require(doParallel)

<user_def>

# For documentation explaining how to modify the commands below see 
# the simulation vignette:
# vignette(package="ubiquity", topic="Simulation")
# Or the simulation tutorial at the bottom of this page:
# http://r.ubiquity.tools/

# --------------------------------------------------------------
# By default the system uses the stand-alone libraries generated
# by the ShinyApp during export:
source("<libfile>");
# Loading the system information
cfg = system_fetch_cfg()
# --------------------------------------------------------------
# # Comment out the block above above then uncomment this block 
# # to rebuild the system and incorporate modifications to the 
# # system file into the simulation results
# if("ubiquity" %in% rownames(installed.packages())){require(ubiquity)} else 
# {source(file.path('library', 'r_general', 'ubiquity.R')) }
# # Rebuilding the system (R scripts and compiling C code)
# cfg = build_system(system_file="<system_file>",
#                    output_directory     = file.path(".", "output"),
#                    temporary_directory  = file.path(".", "transient"))
# --------------------------------------------------------------

cfg = system_select_set(cfg, "<pset>")

<parameters>
# The previous statement sets 'parameters' to the values 
# in the currently selected parameter set. To overwrite 
# a specific parameter uncomment the following statement 
# and replace PNAME with the name of the parameter 
# and VALUE with the desired value:
#
# parameters$PNAME = VALUE;

# Setting simulation options: 
<options>

# Forcing the r-script to be used
cfg=system_set_option(cfg, group  = "simulation", 
                           option = "integrate_with",
                           value  = "r-file")

<bheader><bolus><rheader><infusion_rates><cheader><covariates><iheader><iiv>

# To view the system state before the simulations are run
# uncomment the following line:
# cat(system_view(cfg))

# --------------------------------------------------------------
# Running simulation(s)
<sim>

<save_csv>
# --------------------------------------------------------------


# --------------------------------------------------------------
# plotting timecourse
<plot_timecourse><plot_paramdist>
# --------------------------------------------------------------