R/encode_SymptomaticAtTesting.R

In HughParsonage/dhhs: Handle Common Tasks at the Department of Health and Human Services ('DHHS'), Victoria, Australia

encode_SymptomaticAtTesting <- function(x) {
  c(FALSE, TRUE)[fmatch(x, c("Asymptomatic at Testing", "Symptomatic at Testing"))]
}

decode_SymptomaticAtTesting <- function(x) {
  c("Asymptomatic at Testing", "Symptomatic at Testing")[x]
}