N for only 1 AB in

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: AMR
-Version: 1.8.2.9140
+Version: 1.8.2.9141
 Date: 2023-02-22
 Title: Antimicrobial Resistance Data Analysis
 Description: Functions to simplify and standardise antimicrobial resistance (AMR)

NEWS.md

@@ -1,4 +1,4 @@
-# AMR 1.8.2.9140
+# AMR 1.8.2.9141
 
 *(this beta version will eventually become v2.0! We're happy to reach a new major milestone soon!)*
 

R/antibiogram.R

@@ -191,8 +191,7 @@
 #'             antibiotics = aminoglycosides(),
 #'             ab_transform = "name",
 #'             syndromic_group = ifelse(ex1$ward == "ICU",
-#'     "UCI", "No UCI"
-#'   ),
+#'                                      "UCI", "No UCI"),
 #'             language = "es"
 #' )
 #'
@@ -488,9 +487,16 @@ antibiogram <- function(x,
       count_group <- n_per_mo$count[match(new_df[[1]], n_per_mo$mo)]
       edit_col <- 1
     }
+    if (NCOL(new_df) == edit_col + 1) {
+      # only 1 antibiotic
+      new_df[[edit_col]] <- paste0(new_df[[edit_col]], " (", unlist(lapply(strsplit(count_group, "-"), function(x) x[1])), ")")
+      colnames(new_df)[edit_col] <- paste(colnames(new_df)[edit_col], "(N)")
+    } else {
+      # more than 1 antibiotic
       new_df[[edit_col]] <- paste0(new_df[[edit_col]], " (", count_group, ")")
       colnames(new_df)[edit_col] <- paste(colnames(new_df)[edit_col], "(N min-max)")
     }
+  }
 
   out <- as_original_data_class(new_df, class(x), extra_class = "antibiogram")
   rownames(out) <- NULL

man/antibiogram.Rd

@@ -220,8 +220,7 @@ antibiogram(ex1,
             antibiotics = aminoglycosides(),
             ab_transform = "name",
             syndromic_group = ifelse(ex1$ward == "ICU",
-    "UCI", "No UCI"
-  ),
+                                     "UCI", "No UCI"),
             language = "es"
 )