R/bb-text.R

Defines functions ly_text bb_text

Documented in bb_text

##' @rdname layer
##' @export
bb_text <- function(mapping = NULL, data = NULL, ...) {
    build_layer(mapping, data, ...,  layer = ly_text)
}

##' @importFrom graphics text
ly_text <- function(plot, mapping = NULL, data = NULL, ...) {
    data <- bb_data(plot, data)
    mapping <- bb_mapping(plot, mapping)
    x <- data[[xvar(mapping)]]
    y <- data[[yvar(mapping)]]
    
    params <- list(...)
    params <- modifyList(params, list(x = x, y = y))

    lv <- get_mapping(mapping, 'label')
    if (lv != "NULL") {
        label <- data[[lv]]
        params <- modifyList(params, list(label = label))
    }


    ly <- function() {
        if (!is.null(mapping$col) && is.null(params$col)) {
            col_vec <- bb_col(mapping, data,
                              palette = get("palette", envir = plot$env))
            params <- modifyList(params, list(col = col_vec))
        }

        do.call(text, params)
    }

    add_layer(plot, ly, "text layer")
}

Try the plotbb package in your browser

Any scripts or data that you put into this service are public.

plotbb documentation built on Sept. 8, 2021, 9:07 a.m.