re-indent

nf-core · Nov 19, 2024 · be51725 · be51725
1 parent 52f817e
commit be51725
Showing 1 changed file with 17 additions and 17 deletions.
diff --git a/assets/differentialabundance_report.Rmd b/assets/differentialabundance_report.Rmd
@@ -897,23 +897,23 @@ for (i in 1:nrow(contrasts)){
             print( htmltools::tagList(datatable(contrast_de, caption = paste('Differential genes', dir, 'in', contrast_descriptions[i], " (check", differential_files[[i]], "for more detail)"), rownames = FALSE) ))
 
         if ("Gene biotype" %in% colnames(contrast_de)) {
-        # Plot Differentially Expressed Genes by Gene Biotype
-        gene_biotype_table <- contrast_de %>%
-            group_by(`Gene biotype`) %>%
-            summarise(count = dplyr::n(), .groups = 'drop') %>%
-            filter(count > 0) %>%
-            arrange(desc(count))
-
-        gene_biotype_plot <- ggplot(gene_biotype_table, aes(x = reorder(`Gene biotype`, -count), y = count)) +
-            geom_bar(stat = "identity", position = position_dodge()) +
-            labs(
-                title = paste0("Differentially Expressed Genes by Gene Biotype (", dir, ")"),
-                x = "Gene Biotype",
-                y = "Number of Differentially Expressed Genes"  ) +
-            theme_minimal() +
-            theme(axis.text.x = element_text(angle = 45, hjust = 1))
-
-        print(gene_biotype_plot)
+            # Plot Differentially Expressed Genes by Gene Biotype
+            gene_biotype_table <- contrast_de %>%
+                group_by(`Gene biotype`) %>%
+                summarise(count = dplyr::n(), .groups = 'drop') %>%
+                filter(count > 0) %>%
+                arrange(desc(count))
+
+            gene_biotype_plot <- ggplot(gene_biotype_table, aes(x = reorder(`Gene biotype`, -count), y = count)) +
+                geom_bar(stat = "identity", position = position_dodge()) +
+                labs(
+                    title = paste0("Differentially Expressed Genes by Gene Biotype (", dir, ")"),
+                    x = "Gene Biotype",
+                    y = "Number of Differentially Expressed Genes"  ) +
+                theme_minimal() +
+                theme(axis.text.x = element_text(angle = 45, hjust = 1))
+
+            print(gene_biotype_plot)
         } else {
             cat("Column 'Gene biotype' does not exist. Skipping plot.\n")
         }