...
|
...
|
@@ -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)
|