Update limiric_core.R

AlicenJoyHenning · Aug 18, 2024 · 3b70f33 · 3b70f33
1 parent 48ed3d6
commit 3b70f33
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/limiric_core.R b/R/limiric_core.R
@@ -350,7 +350,7 @@ limiric_core <- function(
   if (droplet_qc == TRUE) {
 
     # Create Droplet QC subdirectories if needed
-    full_path <- file.path(output_path, "droplet_qc")
+    full_path <- file.path(output_path, "DropletQC")
 
     # If subdirectory does not exist it will be created
     if (!dir.exists(full_path)) {
@@ -425,7 +425,7 @@ limiric_core <- function(
     annotated_cells <- merge(storage_cells, clean_cells, by = "barcode", all.x = TRUE)
     annotated_cells$QC_annotation[is.na(annotated_cells$QC_annotation)] <- "removed"
 
-    write.csv(annotated_cells, file = file.path(output_path, "droplet_qc", paste0(project_name, "_barcodes.csv")), row.names = FALSE)
+    write.csv(annotated_cells, file = file.path(output_path, "DropletQC", paste0(project_name, "_barcodes.csv")), row.names = FALSE)
 
     # Rename column
     Seurat$limiric.droplet_qc <- Seurat$QC