website

R/antibiogram.R

@@ -224,7 +224,7 @@
 #' # in an Rmd file, you would just need to return `ureido` in a chunk,
 #' # but to be explicit here:
 #' if (requireNamespace("knitr")) {
-#'   knitr::knit_print(ureido)
+#'   cat(knitr::knit_print(ureido))
 #' }
 #'
 #'

R/italicise_taxonomy.R

@@ -57,7 +57,7 @@ italicise_taxonomy <- function(string, type = c("markdown", "ansi")) {
     before <- "*"
     after <- "*"
   } else if (type == "ansi") {
-    if (!has_colour()) {
+    if (!has_colour() && !identical(Sys.getenv("IN_PKGDOWN"), "true")) {
       return(string)
     }
     before <- "\033[3m"