R/NMctl.R

In NMdata: Preparation, Checking and Post-Processing Data for PK/PD Modeling

##' Read as class NMctl
##' @param x object to read.
##' @param ... Not used.
##' @return An object of class `NMctl`.
##' @export
readCtl <- function(x,...){
    UseMethod("readCtl",x)
}

##' @import NMdata
##' @export
readCtl.character <- function(x,...){
    dots <- list(...)
    if("lines"%in%names(dots)){
        ### this only supports one ctl. Generalize?
        x <- do.call(c,strsplit(x,"\\n"))
        ctl <- x
    } else {
        ctl <- readLines(x,warn=FALSE)
    }
    ## class(ctl) <- "NMctl"
    setattr(ctl,"class",unique(c("NMctl",class(ctl))))
    ctl
}

##' @export
readCtl.NMctl <- function(x,...){
    x
}

##' @export
print.NMctl <- function(x,...) {
    if(!is.list(x)) x <- list(x)
    res <- lapply(x,function(x){
        x <- x[!grepl("^ *$",x)]
        paste0(paste(x,collapse="\n"),"\n\n")
    })
    cat(do.call(paste0,res))
}

##' Convert object to class NMctl
##' @param x object to convert
##' @param ... Not used
##' @return An object of class `NMctl`.
##' @export
as.NMctl <- function(x,...){
    UseMethod("as.NMctl",x)
}

##' @export
as.NMctl.character <- function(x,...){
    readCtl(x,...)
}

##' @export
as.NMctl.NMctl <- function(x,...){
    x
}