plot error when there is no dep for heatmap

R/functions.R

@@ -126,6 +126,12 @@ get_cluster_heatmap <- function(dep, type = c("contrast", "centered"),
   # Filter for significant proteins only
   filtered <- dep[replace_na(row_data$significant, FALSE), ]
 
+  if (nrow(filtered) == 0){
+    return(ggplot() +
+      annotate("text", x = 4, y = 25, size=8, label = "No differential expressed genes for the heatmap") + 
+      theme_void())
+  }
+
   # Check for missing values
   if(any(is.na(assay(filtered)))) {
     warning("Missing values in '", deparse(substitute(dep)), "'. ",

ui.R

@@ -523,10 +523,10 @@ ui <- function(request){shinyUI(
                    title = "User Guide",
                    h3("FragPipe-Analyst Documentation"),
                    div(p(HTML(paste0('Learn more about our FragPipe',
-                                     a(href = 'https://monashbioinformaticsplatform.github.io/LFQ-Analyst/', target='_blank', 'here'))))),
+                                     a(href = 'https://monashbioinformaticsplatform.github.io/LFQ-Analyst/', target='_blank', tags$b('here')))))),
                    div(p(HTML(paste0("The user manual of original LFQ-Analyst can be accessed",
 			                            a(href = 'https://bioinformatics.erc.monash.edu/apps/LFQ-Analyst/LFQ-Analyst_manual.pdf', 
-			                              target='_blank', tags$b("here.")))))),
+			                              target='_blank', tags$b("here")))))),
                    h4("Contact Us"),
 			p("For any feedback or question regarding FragPipe-Analyst, please contact the 
 			  Proteomics & Integrative Bioinformatics Lab, University of Michigan:"),