#' check_annotLevels
#'
#' First, check the number of annotations equals the number of columns
#' in the expression data.
#'
#' @param exp exp (#fix).
#' @inheritParams bootstrap_enrichment_test
#' @return Null output.
#'
#' @keywords internal
check_annotLevels <- function(annotLevels,
exp) {
err_msg2 <- paste0(
"Error: length of all annotation levels must equal",
" the number of columns in exp matrix"
)
out <- lapply(annotLevels, test <- function(x, exp) {
if (length(x) != dim(exp)[2]) {
stop(err_msg2)
}
}, exp)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.