fix DADA2_SPLITREGIONS with one sample

d4straub · d4straub · commit a02474b5e8f0 · 2025-06-18T15:26:49.000+02:00
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -12,6 +12,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 ### `Fixed`
 
 - [#893](https://github.com/nf-core/ampliseq/pull/893),[#896](https://github.com/nf-core/ampliseq/pull/896) - Template update for nf-core/tools version 3.3.1
+- [#897](https://github.com/nf-core/ampliseq/pull/897) - Allow multiple region analysis with one sample
 
 ### `Dependencies`
 
diff --git a/modules/local/dada2_splitregions.nf b/modules/local/dada2_splitregions.nf
@@ -43,7 +43,7 @@ process DADA2_SPLITREGIONS {
     }
 
     # filter rows with only 0, occurring because many samples were removed
-    df <- df[as.logical(rowSums(df[,2:(ncol(df)-1)] != 0)), ]
+    df <- df[as.logical(rowSums(df[,2:(ncol(df)-1), drop = FALSE] != 0)), ]
 
     # Write file with ASV abdundance and sequences to file
     write.table(df, file = "DADA2_table_${suffix}.tsv", sep = "\\t", row.names = FALSE, quote = FALSE, na = '')

Original file line number	Diff line number	Diff line change
`@@ -43,7 +43,7 @@ process DADA2_SPLITREGIONS {`
`43`	`43`	`}`
`44`	`44`
`45`	`45`	`# filter rows with only 0, occurring because many samples were removed`
`46`		`- df <- df[as.logical(rowSums(df[,2:(ncol(df)-1)] != 0)), ]`
	`46`	`+ df <- df[as.logical(rowSums(df[,2:(ncol(df)-1), drop = FALSE] != 0)), ]`
`47`	`47`
`48`	`48`	`# Write file with ASV abdundance and sequences to file`
`49`	`49`	`write.table(df, file = "DADA2_table_${suffix}.tsv", sep = "\\t", row.names = FALSE, quote = FALSE, na = '')`