From 2b39eec2c58d4116a4bf7227932618462bb7e284 Mon Sep 17 00:00:00 2001 From: hoelzer Date: Mon, 22 Apr 2024 11:37:46 +0200 Subject: [PATCH] filter sc2rf output to make reporting work again --- bin/summary_report.Rmd | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bin/summary_report.Rmd b/bin/summary_report.Rmd index 1ad4b77..7a9c270 100644 --- a/bin/summary_report.Rmd +++ b/bin/summary_report.Rmd @@ -101,7 +101,7 @@ dt.president_results <- as.data.table(ldply(params$president_results, fread, sep dt.pangolin_results <- as.data.table(ldply(params$pangolin_results, fread)) dt.nextclade_results <- as.data.table(ldply(params$nextclade_results, fread, sep='\t')) dt.sc2rf_results <- as.data.table(ldply(params$sc2rf_results, fread, sep=',')) -names(dt.sc2rf_results) <- c('sample','examples','intermissions','breakpoints','regions') +colnames(dt.sc2rf_results)[1:5] <- c('sample','examples','intermissions','breakpoints','regions') if(params$vois_results != 'none'){ dt.vois_results <- as.data.table(ldply(params$vois_results, fread)) }