delete useless marker (0a9e4509) · Commits · github_fork / LinkET

DESCRIPTION

+0 −1

+1 −20

Original line number	Diff line number	Diff line
		@@ -182,8 +182,6 @@ marker.character <- function(x,
		heart = heartGrob(nstep = 100),
		ellipse = ellipseGrob(r = r[ii], nstep = 100),
		cross = crossGrob(),
		cross0 = cross2Grob(),
		cross2 = cross2Grob(FALSE),
		triangle = triangleGrob(1),
		triangle2 = triangleGrob(2),
		shade = shadeGrob())
		@@ -559,26 +557,9 @@ triangleGrob <- function(type = 1) {
		}
		}

		#' @noRd
		cross2Grob <- function(round = TRUE) {
		cross <- grid::polygonGrob(
		x = c(1/3, 1/3, 0, 0, 1/3, 1/3, 2/3, 2/3, 1, 1, 2/3, 2/3, 1/3),
		y = c(1, 2/3, 2/3, 1/3, 1/3, 0, 0, 1/3, 1/3, 2/3, 2/3, 1, 1)
		)
		if (isTRUE(round)) {
		tt <- seq(0, 2*pi, length.out = 360)
		circle <- grid::polygonGrob(
		x = 0.5 * cos(tt) + 0.5,
		y = 0.5 * sin(tt) + 0.5
		)
		cross <- gridGeometry::polyclipGrob(circle, cross)
		}
		cross
		}

		#' @noRd
		all_type <- c("square", "circle", "star", "heart", "ellipse", "cross",
		"triangle", "triangle2", "shade", "cross2", "cross0")
		"triangle", "triangle2", "shade")

		#' @noRd
		rename_grobs <- function(x, force = TRUE) {