Nothing
#_______________________________________________________________________________
#---- compartment_properties class ----
#_______________________________________________________________________________
#'
#' Compartment properties class.
#'
#' @export
setClass(
"compartment_properties",
representation(
),
contains="pmx_list",
prototype = prototype(type="compartment_property")
)
#_______________________________________________________________________________
#---- getByIndex ----
#_______________________________________________________________________________
#' @rdname getByIndex
setMethod("getByIndex", signature=c("compartment_properties", "compartment_property"), definition=function(object, x) {
retValue <- object@list %>% purrr::keep(~(.x@compartment==x@compartment & as.character(class(.x))==as.character(class(x))))
if (length(retValue) > 0) {
retValue <- retValue[[1]]
}
return(retValue)
})
#_______________________________________________________________________________
#---- select ----
#_______________________________________________________________________________
#' @rdname select
setMethod("select", signature=c("compartment_properties"), definition=function(object, ...) {
args <- list(...)
types <- c("F", "LAG", "DURATION", "RATE", "INIT")
msg <- paste0("Please select one of those parameter types: ", paste0(paste0("'", types, "'"), collapse=", "))
assertthat::assert_that(length(args) > 0, msg=msg)
type <- args[[1]]
assertthat::assert_that(type %in% types, msg=msg)
object@list <- object@list %>% purrr::keep(~.x %>% getRecordName()==type)
return(object)
})
#_______________________________________________________________________________
#---- sort ----
#_______________________________________________________________________________
#' @rdname sort
setMethod("sort", signature=c("compartment_properties"), definition=function(x, decreasing=FALSE, ...) {
names <- x@list %>% purrr::map_chr(~.x %>% getRecordName())
# Reorder
names <- factor(names, levels=getRecordNames(), labels=getRecordNames())
order <- order(names)
# Apply result to original list
x@list <- x@list[order]
return(x)
})
#_______________________________________________________________________________
#---- show ----
#_______________________________________________________________________________
setMethod("show", signature=c("compartment_properties"), definition=function(object) {
for (element in object@list) {
show(element)
cat("\n")
}
})
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.