rename is_element -> is_theme_element

Author: thomasp85

NAMESPACE

@@ -459,7 +459,6 @@ export(is.ggplot)
 export(is.ggproto)
 export(is.theme)
 export(is_coord)
-export(is_element)
 export(is_facet)
 export(is_geom)
 export(is_ggplot)
@@ -473,6 +472,7 @@ export(is_position)
 export(is_scale)
 export(is_stat)
 export(is_theme)
+export(is_theme_element)
 export(label_both)
 export(label_bquote)
 export(label_context)

NEWS.md

@@ -381,10 +381,10 @@ Guide <- ggproto(
   # Renders tickmarks
   build_ticks = function(key, elements, params, position = params$position,
                          length = elements$ticks_length) {
-    if (!is_element(elements)) {
+    if (!is_theme_element(elements)) {
       elements <- elements$ticks
     }
-    if (!is_element(elements, "line")) {
+    if (!is_theme_element(elements, "line")) {
       return(zeroGrob())
     }
 

R/guide-.R

@@ -240,7 +240,7 @@ GuideAxis <- ggproto(
 
   override_elements = function(params, elements, theme) {
     label <- elements$text
-    if (!is_element(label, "text")) {
+    if (!is_theme_element(label, "text")) {
       return(elements)
     }
     label_overrides <- axis_label_element_overrides(

R/guide-axis.R

@@ -272,7 +272,7 @@ ggplot_gtable.ggplot_built <- function(data) {
   plot_table <- gtable_add_rows(plot_table, theme$plot.margin[3])
   plot_table <- gtable_add_cols(plot_table, theme$plot.margin[4], pos = 0)
 
-  if (is_element(theme$plot.background)) {
+  if (is_theme_element(theme$plot.background)) {
     plot_table <- gtable_add_grob(plot_table,
       element_render(theme, "plot.background"),
       t = 1, l = 1, b = -1, r = -1, name = "background", z = -Inf)

R/plot-build.R

@@ -148,7 +148,7 @@ element_text <- function(family = NULL, face = NULL, colour = NULL,
 
 #' @export
 #' @rdname element
-is_element <- function(x, type = "any") {
+is_theme_element <- function(x, type = "any") {
   switch(
     type %||% "any",
     any   = inherits(x, "element"),

R/theme-elements.R

@@ -521,7 +521,7 @@ theme <- function(...,
   # If complete theme set all non-blank elements to inherit from blanks
   if (complete) {
     elements <- lapply(elements, function(el) {
-      if (is_element(el) && !is_element(el, "blank")) {
+      if (is_theme_element(el) && !is_theme_element(el, "blank")) {
         el$inherit.blank <- TRUE
       }
       el
@@ -821,7 +821,7 @@ combine_elements <- function(e1, e2) {
   }
 
   # If neither of e1 or e2 are element_* objects, return e1
-  if (!is_element(e1) && !is_element(e2)) {
+  if (!is_theme_element(e1) && !is_theme_element(e2)) {
     return(e1)
   }
 

R/theme.R

@@ -337,7 +337,7 @@ test_that("element tree can be modified", {
 test_that("all elements in complete themes have inherit.blank=TRUE", {
   inherit_blanks <- function(theme) {
     all(vapply(theme, function(el) {
-      if (is_element(el) && !is_element(el, "blank")) {
+      if (is_theme_element(el) && !is_theme_element(el, "blank")) {
         el$inherit.blank
       } else {
         TRUE