fix molecular features

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: ddh
 Type: Package
 Title: Utility Functions and Data Sets for Data-driven Hypothesis
-Version: 0.3.38
+Version: 0.3.39
 Authors@R: c(
     person(given = "Matthew",
            family = "Hirschey",

R/tables.R

@@ -832,23 +832,31 @@ make_molecular_features_segments_table <- function(input = list(),
 #' \dontrun{
 #' make_molecular_features_table(input = list(type = 'gene', content = 'ROCK1'))
 #' }
-make_molecular_features_table <- function(input = list(),
-                                          ...) {
+make_molecular_features_table <- function(input = list()) {
   make_molecular_features_table_raw <- function() {
     gene_summaries <- ddh::get_content("universal_gene_summary", dataset = TRUE)[,1:2]
-    gene_molecular_features_hits <-
+
+    gene_molecular_features_hits_raw <-
       ddh::get_data_object(object_names = input$content,
                            dataset_name = "gene_molecular_features",
                            pivotwider = TRUE) %>%
       dplyr::mutate(dplyr::across(dplyr::contains(c("logFC", "pval", "adjPval")), as.numeric)) %>%
       dplyr::mutate_if(is.numeric, ~ signif(., digits = 3)) %>%
-      dplyr::select(-data_set) %>%
-      dplyr::left_join(gene_summaries, by = c("feature" = "approved_symbol")) %>%
-      dplyr::select(Query = id, Feature = feature, Description = approved_name, logFC, `P-value` = pval, FDR = adjPval) %>%
-      dplyr::mutate(Description = dplyr::case_when(grepl("TSS_", Feature) ~ paste0("DNA methylation (promoter 1kb upstream TSS) of ", gsub("TSS_", "", Feature)),
-                                                   is.na(Description) ~ Feature,
-                                                   TRUE ~ Description))
-    return(gene_molecular_features_hits)
+      dplyr::select(-data_set)
+
+    if (nrow(gene_molecular_features_hits_raw) > 0) {
+      gene_molecular_features_hits <-
+        gene_molecular_features_hits_raw %>%
+        dplyr::left_join(gene_summaries, by = c("feature" = "approved_symbol")) %>%
+        dplyr::select(Query = id, Feature = feature, Description = approved_name, logFC, `P-value` = pval, FDR = adjPval) %>%
+        dplyr::mutate(Description = dplyr::case_when(grepl("TSS_", Feature) ~ paste0("DNA methylation (promoter 1kb upstream TSS) of ", gsub("TSS_", "", Feature)),
+                                                     is.na(Description) ~ Feature,
+                                                     TRUE ~ Description))
+
+      return(gene_molecular_features_hits)
+    } else {
+      return(dplyr::tibble())
+    }
   }
   #error handling
   tryCatch(make_molecular_features_table_raw(),