R/input.R

In nonmem2rx: Converts 'NONMEM' Models to 'rxode2'

#' @export
#' @rdname nonmem2rxRec
nonmem2rxRec.inp <- function(x) {
  .x <- x
  class(.x) <- NULL
  .rec <- .transRecordsDisplay[class(x)[1]]
  .ln <- length(.x)
  .i <- 1
  for (.cur in .x) {
    if (.ln > 1) .Call(`_nonmem2rx_setRecord`, paste0(.rec, " #", .i))
    .i <- .i + 1
    .Call(`_nonmem2rx_trans_input`, .cur)
  }
}
#' Add input item to .nonmem2  
#'  
#' @param item1 input name 1
#' @param item2 input name 2
#' @return Nothing called for side effets
#' @noRd
#' @author Matthew L. Fidler
.addInputItem <- function(item1, item2) {
  if (!exists("input", envir=.nonmem2rx)) .nonmem2rx$input <- NULL
  .ret <- item2
  names(.ret) <- item1
  .nonmem2rx$input <- c(.nonmem2rx$input, .ret)
  invisible()
}