... |
... |
@@ -180,8 +180,8 @@ addData <- function(GRN, counts_peaks, normalization_peaks = "DESeq_sizeFactor",
|
180 |
180 |
|
181 |
181 |
checkmate::assertDataFrame(counts_peaks, min.rows = 1, min.cols = 2)
|
182 |
182 |
checkmate::assertDataFrame(counts_rna, min.rows = 1, min.cols = 2)
|
183 |
|
- checkmate::assertCharacter(idColumn_peaks, min.chars = 1, len = 1)
|
184 |
|
- checkmate::assertCharacter(idColumn_RNA, min.chars = 1, len = 1)
|
|
183 |
+ checkmate::assertChoice(idColumn_peaks, colnames(counts_peaks))
|
|
184 |
+ checkmate::assertChoice(idColumn_RNA, colnames(counts_rna))
|
185 |
185 |
checkmate::assertChoice(normalization_peaks, c("none", "DESeq_sizeFactor", "quantile"))
|
186 |
186 |
checkmate::assertChoice(normalization_rna, c("none", "DESeq_sizeFactor", "quantile"))
|
187 |
187 |
checkmate::assertFlag(allowOverlappingPeaks)
|