added missing step in the join function

sidora-tools · Aug 1, 2020 · 1a6088b · 1a6088b
1 parent c094492
commit 1a6088b
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/R/dataprep_join_data.R b/R/dataprep_join_data.R
@@ -90,6 +90,19 @@ join_pandora_tables <- function(x) {
       )
     return_table <- "TAB_Sequencing"
   }
+
+  if (all(c("TAB_Sequencing", "TAB_Raw_Data") %in% tabs)) {
+    x[["TAB_Raw_Data"]] <- dplyr::left_join(
+      x[["TAB_Sequencing"]], 
+      x[["TAB_Raw_Data"]], 
+      by = c("sequencing.Id" = "raw_data.Sequencing")
+    ) %>%
+      dplyr::mutate(
+        raw_data.Sequencing = .data[["sequencing.Id"]]
+      )
+    return_table <- "TAB_Raw_Data"
+  }
+
   return(x[[return_table]])
 }