Fix typo

R/plotters.R

@@ -73,7 +73,7 @@ tacoplot_stack <- function(ta, n = 12, x = sample_clustered, geom_bar = T) {
   # Add > 12 colors if asked for
   if (n > 12) { 
     force_optional_dependency("RColorBrewer")
-    supressMessages(
+    suppressMessages(
     plot <- plot +
           scale_fill_manual(values = colorRampPalette(palette_xgfs)(n)))
   }