remove file extension in outrider module (#140)

gagneurlab · Nov 13, 2020 · 0470011 · 0470011
1 parent f0c37ca
commit 0470011
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/drop/modules/aberrant-expression-pipeline/OUTRIDER/runOutrider.R b/drop/modules/aberrant-expression-pipeline/OUTRIDER/runOutrider.R
@@ -24,6 +24,7 @@ suppressPackageStartupMessages({
     library(data.table)
     library(dplyr)
     library(magrittr)
+    library(tools)
 })
 
 ods <- readRDS(snakemake@input$ods)
@@ -55,7 +56,7 @@ message("outrider fitting finished")
 
 # Save the new ods with a date stamp
 op <- snakemake@output$ods
-op_date <- paste0(strsplit(op, "\\.")[[1]][1], "-", format(Sys.time(), "%Y%m%d") , ".Rds")
+op_date <- paste0(file_path_sans_ext(op), "-", format(Sys.time(), "%Y%m%d") , ".Rds")
 saveRDS(ods, op_date)
 
 # Create a link to the previous file