Implement extensive support for antiviral agents support (#77)

R/vctrs.R

@@ -70,6 +70,20 @@ vec_cast.ab.character <- function(x, to, ...) {
   return_after_integrity_check(x, "antimicrobial code", as.character(AMR_env$AB_lookup$ab))
 }
 
+# S3: av
+vec_ptype2.character.av <- function(x, y, ...) {
+  x
+}
+vec_ptype2.av.character <- function(x, y, ...) {
+  y
+}
+vec_cast.character.av <- function(x, to, ...) {
+  as.character(x)
+}
+vec_cast.av.character <- function(x, to, ...) {
+  return_after_integrity_check(x, "antiviral agent code", as.character(AMR_env$AV_lookup$av))
+}
+
 # S3: mo
 vec_ptype2.character.mo <- function(x, y, ...) {
   x