stop("subscript 'i' must be a vector of integers")
stop("'L' must be a list of integer vectors")
stop("subscript 'j' must be a vector of integers or NULL")
stop("subscript 'j' contains NAs or out of bounds indices")
NG, ifelse(NG == 1, " group ", " groups "),
"and ", NO, ifelse(NO == 1, " object\n", " objects\n"),
empty_groups <- which(grouplength(object) == 0L)
cat("Nb of empty groups: ", length(empty_groups),
group_length <- elementLengths(x@low2high) + 1L
stop("subscript 'i' must be a vector of integers or NULL")
stop("subscript 'i' contains NAs or out of bounds indices")
stop("cannot make a ", class(x), " instance longer")
return("the 'high2low' slot must contain an integer vector")
return("the 'high2low' slot must contain integer values >= 1")
if (!all(x@high2low < seq_along(x@high2low), na.rm=TRUE)) {
problem <- c("when mapped, elements in the 'high2low' slot must be mapped ",
return("the 'low2high' slot must contain a list")
return("the 'high2low' and 'low2high' slots must have the same length")
problem <- c("the 'low2high' slot must contain the reverse mapping ",
if (is.null(problems)) TRUE else problems
stop("\"duplicated\" method for Dups objects ",
duplicated.Dups <- function(x, incomparables=FALSE, ...)
percentage <- 100.00 * sum(duplicated(object)) / length(object)
cat(class(object), " of length ", length(object),
" (", percentage, "% of duplicates)\n", sep="")
stop("'high2low' must be a vector of integers")
ans[ans == seq_len(length(x))] <- NA_integer_
NAMES="characterORNULL"  # R doesn't like @names !!
return("the names must be a character vector or NULL")
return("number of names and number of elements differ")
PartitioningByEnd <- function(x=integer(), NG=NULL, names=NULL)
warning("when 'x' is a CompressedList object, ",
warning("'NG' argument is ignored when 'x' is ",
stop("'x' must be either a list-like object ",
stop("when 'x' is an integer vector, it must be sorted")
stop("'NG' must be either NULL or a single integer")
stop("when 'NG' is 0, 'x' must be of length 0")
stop("when 'NG' is supplied, values in 'x' must ",
if (!is.character(names) || length(names) != length(x))
stop("'names' must be either NULL or a character vector of length ",
"'NG' (if supplied) or 'length(x)' (if 'NG' is not supplied)")
stop("the Ranges object to coerce does not represent a partitioning")
return("the widths should not be named")
PartitioningByWidth <- function(x=integer(), NG=NULL, names=NULL)
stop("'x' must be either a list-like object or an integer vector")
stop("'subject' must be a Partitioning object")
is_valid <- 1L <= s_hits & s_hits <= length(s_end)