(v2.1.1.9123) add EFF code to antibiotics data set

data-raw/reproduction_of_antibiotics.R

@@ -760,6 +760,20 @@ antibiotics <- antibiotics %>%
   ))
 antibiotics[which(antibiotics$ab %in% c("CYC", "LNZ", "THA", "TZD")), "group"] <- "Oxazolidinones"
 
+# add efflux
+effl <- antibiotics |>
+  filter(ab == "ACM") |>
+  mutate(ab = as.character("EFF"),
+         cid = NA_real_,
+         name = "Efflux",
+         group = "Other")
+antibiotics <- antibiotics |>
+  mutate(ab = as.character(ab)) |>
+  bind_rows(effl)
+class(antibiotics$ab) <- c("ab", "character")
+antibiotics[which(antibiotics$ab == "EFF"), "abbreviations"][[1]] <- list(c("effflux pump"))
+
+
 # add clindamycin inducible screening
 clin <- antibiotics |>
   filter(ab == "FOX1") |>