R/pick_valid.R

In swehip/shprplotfun: R functions for SHPR annual report

#' Help function for add_prom
#'
#' If there are several PROM on same date, this function populate rows with
#' existing PROM values.
#'
#' @param x vector wit hPROM values
pick_valid <- function(x) {
  x <- unique(x)
  y <- x[!is.na(x)]

  if (length(y) > 1) {
    print("This patient has several PROM-values, one is chosen randomly:", y)
    sample(y, 1)
  } else if (length(x) > 1) {
    y
  } else {
    x
  }
}