R/utils.R

In dzhang32/ggtranscript: Visualizing Transcript Structure and Annotation using 'ggplot2'

#' @keywords internal
#' @noRd
.check_coord_object <- function(x,
                                check_seqnames = FALSE,
                                check_strand = FALSE) {
    if (!is.data.frame(x)) {
        stop(
            "object must be a data.frame. ",
            "GRanges objects are currently not supported and must be converted ",
            "using e.g. as.data.frame()"
        )
    }

    if (!all(c("start", "end") %in% colnames(x))) {
        stop("object must have the columns 'start' and 'end'")
    }

    if (check_seqnames) {
        if (!("seqnames" %in% colnames(x))) {
            stop("object must have the column 'seqnames'")
        }
    }

    if (check_strand) {
        if (!("strand" %in% colnames(x))) {
            stop("object must have the column 'strand'")
        }
    }
}

#' @keywords internal
#' @noRd
.check_group_var <- function(x, group_var) {
    if (!is.null(group_var)) {
        if (!all(group_var %in% colnames(x))) {
            stop(
                "group_var ('", group_var, "') ",
                "must be a column in object"
            )
        }
    }
}