Nothing
#_______________________________________________________________________________
#---- dataset_config class ----
#_______________________________________________________________________________
#'
#' Dataset configuration class.
#'
#' @slot def_depot_cmt default depot compartment, integer
#' @slot def_obs_cmt default observation compartment, integer
#' @slot export_tsld export column TSLD, logical
#' @slot export_tdos export column TDOS, logical
#' @export
setClass(
"dataset_config",
representation(
def_depot_cmt="integer",
def_obs_cmt="integer",
export_tsld="logical",
export_tdos="logical"
),
prototype=prototype(def_depot_cmt=as.integer(1),
def_obs_cmt=as.integer(1),
export_tsld=FALSE,
export_tdos=FALSE),
validity=function(object) {
return(expectOneForAll(object, c("def_depot_cmt", "def_obs_cmt", "export_tsld", "export_tdos")))
}
)
#'
#' Create a dataset configuration. This configuration allows CAMPSIS to know which
#' are the default depot and observed compartments.
#'
#' @param defDepotCmt default depot compartment, integer
#' @param defObsCmt default observation compartment, integer
#' @param exportTSLD export column TSLD (time since last dose), logical
#' @param exportTDOS export column TDOS (time of last dose), logical
#' @return a dataset configuration
#' @export
DatasetConfig <- function(defDepotCmt=1, defObsCmt=1, exportTSLD=FALSE, exportTDOS=FALSE) {
return(new("dataset_config", def_depot_cmt=as.integer(defDepotCmt),
def_obs_cmt=as.integer(defObsCmt), export_tsld=exportTSLD, export_tdos=exportTDOS))
}
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.