(v1.1.0.9016) small fix

R/ab.R

@@ -215,6 +215,8 @@ as.ab <- function(x, ...) {
     x_spelling <- gsub("(o\\+n|o\\+ne\\+)$", "o+ne*", x_spelling)
     # replace multiple same characters to single one with '+', like "ll" -> "l+"
     x_spelling <- gsub("(.)\\1+", "\\1+", x_spelling)
+    # replace spaces and slashes with a possibility on both
+    x_spelling <- gsub("[ /]", "( |/)", x_spelling)
   
     # try if name starts with it
     found <- antibiotics[which(antibiotics$name %like% paste0("^", x_spelling)), ]$ab