filter sc2rf output to make reporting work again

rki-mf1 · Apr 22, 2024 · 2b39eec · 2b39eec
1 parent 453eb8f
commit 2b39eec
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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))
 }