R/long.R

In monolix2rx: Converts 'Monolix' Models to 'rxode2'

#' Longitudinal parsing
#'
#' @param text parsing text
#' @return nothing, called for side effects
#' @noRd
#' @author Matthew L. Fidler
.longitudinal <- function(text) {
  .ret <- .ind(text, "[LONGITUDINAL]")
  class(.ret) <- "monolix2rxLongitudinal"
  .ret
}
#' @export
as.character.monolix2rxLongitudinal <- function(x, ...) {
  as.character.monolix2rxInd(x, ...)
}

#' @export
print.monolix2rxLongitudinal <- function(x, ...) {
  print.monolix2rxInd(x, ...)
}

#' @export
as.list.monolix2rxLongitudinal <- function(x, ...) {
  .x <- x
  class(.x) <- NULL
  .x
}