inst/comoapp/www/model/fun_parse_age_group.R

In ocelhay/como: A Web Application of the CoMo COVID-19 Model

parse_age_group <- function(vec) {
  regx_str <- "^(([0]*([1-9]|1[0-9]|2[0-1]))[\\,\\:])*([0]*([1-9]|1[0-9]|2[0-1]))$"
  output <- rep(0, 21)
  
  if(is.na(vec))  return(output)  # added for the app
  
  vec <- stringr::str_replace_all(vec, "-", ":")
  vec <- stringr::str_replace_all(vec, ";", ",")
  vec <- stringr::str_replace_all(vec, "[:space:]", "")
  vec <- stringr::str_replace_all(vec, "[:alpha:]", "")
  if (!stringr::str_detect(vec, regx_str)) {
    return(output)
  }
  vec <- paste0("c(", vec, ")")
  vec2 <- eval(parse(text = vec))
  output[vec2] <- 1
  return(output)
}

# test_strings <- c(
#   "1,3; 2;8-9,21",
#   " 1a ,a6:age7",
#   " ",
#   " 001, 021;11-10",
#   "10, ",
#   "a1,g20",
#   "10,-1",
#   "2",
#   "2,22",
#   "5,3,1",
#   "1-21"
# )
# 
# for(str in test_strings) {
#   print("input:")
#   print(str)
#   print("output:")
#   print(parse_age_group(str))
# }