R/make_labels.r

In epiforecasts/covid19.slovakia.mass.testing: Code accompanying the manuscript "The effectiveness of population-wide screening in reducing SARS-CoV-2 infection prevalence in Slovakia"

##' Helper function for lables in plot
##'
##' @param labels lables
##' @return a list of split labels
##' @importFrom stringr str_split
##' @keywords internal
make_labels <- function(labels) {
  result <- str_split(labels, "\\.")
  unlist(lapply(result, function(x) x[2]))
}