Remove level in debug trace

hadley · hadley · commit d4ba506f823f · 2016-10-03T07:31:18.000-05:00
diff --git a/R/theme-elements.r b/R/theme-elements.r
@@ -147,7 +147,8 @@ element_render <- function(theme, element, ..., name = NULL) {
     return(zeroGrob())
   }
 
-  ggname(paste(element, name, sep = "."), element_grob(el, ...))
+  grob <- element_grob(el, ...)
+  ggname(paste(element, name, sep = "."), grob)
 }
 
 

Original file line number	Diff line number	Diff line change
`@@ -147,7 +147,8 @@ element_render <- function(theme, element, ..., name = NULL) {`
`147`	`147`	`return(zeroGrob())`
`148`	`148`	`}`
`149`	`149`
`150`		`- ggname(paste(element, name, sep = "."), element_grob(el, ...))`
	`150`	`+ grob <- element_grob(el, ...)`
	`151`	`+ ggname(paste(element, name, sep = "."), grob)`
`151`	`152`	`}`
`152`	`153`
`153`	`154`