can force rename all grobs (1efea648) · Commits · github_fork / LinkET

R/marker.R

+19 −8

Original line number	Diff line number	Diff line
		@@ -571,7 +571,8 @@ all_type <- c("square", "circle", "star", "heart", "ellipse", "cross",
		"triangle", "triangle2", "shade")

		#' @noRd
		rename_grobs <- function(x) {
		rename_grobs <- function(x, force = FALSE) {
		if (isFALSE(force)) {
		hash <- vapply(x, digest::digest, character(1))
		dup <- duplicated(hash)
		if (any(dup)) {
		@@ -585,5 +586,15 @@ rename_grobs <- function(x) {
		x[[id[ii]]]$name <- nm[ii]
		}
		}
		} else {
		n <- length(x)
		index <- paste(ceiling(abs(stats::rnorm(n)) * 1000),
		ceiling(abs(stats::rnorm(n)) * 1000),
		ceiling(abs(stats::rnorm(n)) * 1000), sep = ".")
		nm <- paste("MARKER", "GROB", index, sep = ".")
		for (ii in seq_len(n)) {
		x[[ii]]$name <- nm[ii]
		}
		}
		x
		}