R/internal.R

In poissonconsulting/poistimesheets: Poisson Time Sheets

sred <- function(x) {
  if(!length(x)) return(character(0))
  y <- rep(NA_character_, length(x))
  is_sred <- grepl("^\\s*SRED\\s*-", x)
  if(!any(is_sred)) return(y)
  x <- x[is_sred]
  x <- sub("^\\s*SRED\\s*-\\s*", "", x)
  y[is_sred] <- x
  y
}