R/fileinfo.R

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

#' File info initialization
#'
#' @return nothing, called for side effects
#' @noRd
#' @author Matthew L. Fidler
.fileinfoIni <- function() {
  .monolix2rx$file <- character(0)
  .monolix2rx$header <- character(0)
  .monolix2rx$delimiter <- character(0)
  .monolix2rx$fileinfo <- list()
}
#' Parse fileinfo text
#'
#' @param text text to parse
#' @return parsed fileinfo
#' @noRd
#' @author Matthew L. Fidler
.fileinfo <- function(text) {
  .fileinfoIni()
  .Call(`_monolix2rx_trans_fileinfo`, text)
  .fileinfo <- list(file=.monolix2rx$file,
                    header=.monolix2rx$header,
                    delimiter=.monolix2rx$delimiter)
  class(.fileinfo) <- "monolix2rxFileinfo"
  .fileinfoIni()
  .monolix2rx$fileinfo <- .fileinfo
}
#' Assign the file from the fileinfo section
#'
#' @param file file name
#' @return nothing, called for side effects
#' @noRd
#' @author Matthew L. Fidler
.fileinfoFile <- function(file) {
  .monolix2rx$file <- file
}
#' Assign the File Info delimiter
#'
#' @param d delimiter
#' @return nothing, called for side effects
#' @noRd
#' @author Matthew L. Fidler
.fileinfoDelimiter <- function(d) {
  .monolix2rx$delimiter <- d
}
#' Add a header column
#'
#' @param head header column to add
#' @return nothing, called for side effects
#' @noRd
#' @author Matthew L. Fidler
.fileinfoHeader <- function(head) {
  .monolix2rx$header <- c(.monolix2rx$header, head)
}
#' Print file
#'
#' @param x print file info
#' @return nothing, called for side effects
#' @noRd
#' @author Matthew L. Fidler
.asCharacterFile <- function(x) {
  if (length(x$file) != 1L) return(character(0))
  paste0("file = '", x$file, "'")
}

#' @export
as.character.monolix2rxFileinfo <- function(x, ...) {
  c(.asCharacterFile(x),
    paste0("delimiter = ", x$delimiter),
    paste0("header = {", paste(x$header, collapse=", "), "}"))
}

#' @export
print.monolix2rxFileinfo <- function(x, ...) {
  cat(paste(as.character.monolix2rxFileinfo(x, ...), collapse="\n"),
      "\n", sep="")
  invisible(x)
}

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