Don't try so hard for unique grob names. #459

hadley · hadley · commit 0719eedf4866 · 2012-07-05T09:44:02.000-07:00
diff --git a/R/utilities-grid.r b/R/utilities-grid.r
@@ -3,7 +3,7 @@
 # 
 # @keyword internal
 ggname <- function(prefix, grob) {
-  grob$name <- grobName(grob, prefix)
+  grob$name <- paste(prefix, class(grob)[1L], sep = ".")  
   grob
 }
 

Original file line number	Diff line number	Diff line change
`@@ -3,7 +3,7 @@`
`3`	`3`	`#`
`4`	`4`	`# @keyword internal`
`5`	`5`	`ggname <- function(prefix, grob) {`
`6`		`- grob$name <- grobName(grob, prefix)`
	`6`	`+ grob$name <- paste(prefix, class(grob)[1L], sep = ".")`
`7`	`7`	`grob`
`8`	`8`	`}`
`9`	`9`