R/replace_empty.R

In PKPDmisc: Pharmacokinetic and Pharmacodynamic Data Management Functions

#' Convert empty strings into missing values.
#'
#' @param x A character vector
#' @return A character vector with empty strings replaced by missing values.
#' @export
#' @examples
#' x <- c("a", "", "c")
#' replace_empty(x)
replace_empty <- function(x) {
  stopifnot(is.character(x))
  x[x == ""] <- NA
  x
}
#' Convert '.' values into missing values.
#'
#' @param x A character vector
#' @return A character vector with '.' replaced by NA values.
#' @details
#' good for nonmem preprocessing as missing values are represented with '.' in NONMEM
#' @export
#' @examples
#' x <- c(".", "1", "1")
#' replace_dots(x)
replace_dots <- function(x) {
  stopifnot(is.character(x))
  x[x == "."] <- NA
  x
}