R/draw-key.R

In houyunhuang/ggtriangle: Fast processing of matrix heatmap

#' @importFrom grid pointsGrob gpar
#' @export
draw_key_point_upper <- function (data, params, size)
{
  if (is.null(data$shape)) {
    data$shape <- 19
  }
  else if (is.character(data$shape)) {
    data$shape <- ggplot2:::translate_shape_string(data$shape)
  }
  if (!is.null(data$colour.upper)) {
    data$colour <- data$colour.upper
  }
  if (!is.null(data$fill.upper)) {
    data$fill <- data$fill.upper
  }
  grid::pointsGrob(0.5, 0.5, pch = data$shape,
                   gp = grid::gpar(col = alpha(data$colour %||% "black", data$alpha),
                                   fill = alpha(data$fill %||% "black", data$alpha),
                                   fontsize = (data$size %||% 1.5) * .pt + (data$stroke %||% 0.5) * .stroke/2,
                                   lwd = (data$stroke %||% 0.5) * .stroke/2))
}

#' @importFrom grid pointsGrob gpar
#' @export
draw_key_point_lower <- function (data, params, size)
{
  if (is.null(data$shape)) {
    data$shape <- 19
  }
  else if (is.character(data$shape)) {
    data$shape <- ggplot2:::translate_shape_string(data$shape)
  }
  if (!is.null(data$colour.lower)) {
    data$colour <- data$colour.lower
  }
  if (!is.null(data$fill.lower)) {
    data$fill <- data$fill.lower
  }
  grid::pointsGrob(0.5, 0.5, pch = data$shape,
                   gp = grid::gpar(col = alpha(data$colour %||% "black", data$alpha),
                                   fill = alpha(data$fill %||% "black", data$alpha),
                                   fontsize = (data$size %||% 1.5) * .pt + (data$stroke %||% 0.5) * .stroke/2,
                                   lwd = (data$stroke %||% 0.5) * .stroke/2))
}