Nothing
#_______________________________________________________________________________
#---- unknown_statement class ----
#_______________________________________________________________________________
#'
#' Unknown statement class. Any statement not recognized by campsismod.
#'
#' @export
setClass(
"unknown_statement",
representation(
line = "character"
),
contains = "model_statement",
validity = function(object) {
return(expectOne(object, "line"))
}
)
#'
#' Create a new ordinary differential equation (ODE).
#'
#' @param line line which was not recognised
#' @param comment comment if any, single character string
#' @return an unknown statement
#' @export
UnknownStatement <- function(line, comment=as.character(NA)) {
return(new("unknown_statement", line=line, comment=comment))
}
#_______________________________________________________________________________
#---- getName ----
#_______________________________________________________________________________
#' @rdname getName
setMethod("getName", signature = c("unknown_statement"), definition = function(x) {
return(as.character(NA)) # unknown statement non-identifiable
})
#_______________________________________________________________________________
#---- toString ----
#_______________________________________________________________________________
#' @rdname toString
setMethod("toString", signature=c("unknown_statement"), definition=function(object, ...) {
args <- list(...)
dest <- processExtraArg(args=args, name="dest", default="campsis")
show <- processExtraArg(args=args, name="show", default=FALSE)
if (dest=="campsis") {
if (show) {
retValue <- paste0("[UNKNOWN STATEMENT] ", object@line)
} else {
retValue <- object@line
}
} else if (dest=="RxODE" || dest=="mrgsolve" || dest=="NONMEM") {
retValue <- object@line
} else {
UnsupportedDestException()
}
return(retValue %>% appendComment(object, dest))
})
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.