R/stdzDoseChange.R

Defines functions stdzDoseChange

Documented in stdzDoseChange

#' Standardize Dose Change Entity
#'
#' This function standardizes the dose change entity.
#'
#' @param x character vector of extracted dose change values
#'
#' @return character vector
#'
#' @examples
#' stdzDoseChange(c('decreasing','dropped','increased'))
#' @export

stdzDoseChange <- function(x) {
  dc <- gsub("[[:space:]]", "", tolower(x))
  udc <- unique(dc)
  useUnq <- length(udc) != length(dc)
  if(useUnq) {
    mix <- match(dc, udc)
    dc <- udc
  }
  dc[grep("inc", dc)] <- '+'
  dc[grep("dec|down|drop|lower|reduc", dc)] <- '-'
  dc[nchar(dc) == 0] <- NA
  if(useUnq) {
    dc <- dc[mix]
  }
  dc
}

Try the EHR package in your browser

Any scripts or data that you put into this service are public.

EHR documentation built on Oct. 7, 2021, 9:28 a.m.