hotfix negative counts for heatmap

R/mod_heatmap.R

@@ -76,7 +76,7 @@ mod_heatmap_ui <- function(id) {
 #'
 #' @noRd
 #' @importFrom ggplot2 element_blank element_text facet_grid theme theme_bw vars
-#' @importFrom phyloseq plot_heatmap
+#' @importFrom phyloseq otu_table plot_heatmap
 #' @importFrom plotly renderPlotly
 #' @importFrom rlang .data is_null
 #' @importFrom shiny moduleServer need observeEvent reactive validate
@@ -87,6 +87,7 @@ mod_heatmap_server <- function(id, r) {
     output$heatmap <- renderPlotly({
       validate(
         need(slot_phyloseq(r$physeq), message = "Requires an abundance dataset"),
+        need(min(otu_table(r$physeq)) >= 0, message = "Transformation introduced negative counts"),
         need(slot_phyloseq(r$physeq, "tax_table"), message = "Requires tax_table")
       )