Browse code

small change

Christian Arnold authored on 14/10/2022 15:47:58
Showing1 changed files

  • R/core.R index 33e00db..c75304c 100755
... ...
@@ -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)