R/object_to_R_code.R

In PKPDsim: Tools for Performing Pharmacokinetic-Pharmacodynamic Simulations

#' Transform a vector into a string that evaluates to the same vector
#'
#' Collapses a vector into a comma-separated list with strings quoted
#' (and special characters escaped). A general purpose helper function
#' for writing new model code.
#'
#' @param vec a vector
#' @return character string of length 1
#' @keywords internal
vector_to_R_code <- function(vec) {
  if (is.null(vec)) return("NULL")
  paste0("c(", paste(add_quotes(vec), collapse = ", "), ")")
}

#' Transforms bioavailability specs into appropriate R code
#'
#' Specialized wrapper around `vector_to_R_code` that makes reasonable PK
#' assumptions for when the bioavailability specification is NULL.
#'
#' @param bioav bioavailability specification, either NULL (assume a value of 1
#'   in all compartments), a single value (assume it applies to all
#'   compartments), or a vector of values.
#' @return character string of length 1
#' @keywords internal
bioavailability_to_R_code <- function(bioav) {
  if (is.null(bioav)) bioav <- "1"
  vector_to_R_code(as.character(bioav))
}