R/sgl_geom_point.R

In rsgl: An Implementation of the 'SGL' Graphics Language

Defines functions has_direction.sgl_geom_point valid_qual_list.sgl_geom_point valid_non_pos_aes.sgl_geom_point ggplot_geom.sgl_geom_point geom_name.sgl_geom_point new_sgl_geom_point

new_sgl_geom_point <- function() {
  new_sgl_geom(class = "sgl_geom_point")
}

#' @export
geom_name.sgl_geom_point <- function(geom) {
  "point"
}

#' @export
ggplot_geom.sgl_geom_point <- function(geom) {
  ggplot2::geom_point
}

#' @export
valid_non_pos_aes.sgl_geom_point <- function(geom) {
  .non_pos_aes
}

#' @export
valid_qual_list.sgl_geom_point <- function(geom) {
  "jittered"
}

#' @export
has_direction.sgl_geom_point <- function(geom) {
  FALSE
}

Try the rsgl package in your browser