@@ -173,20 +173,6 @@ element_text <- function(family = NULL, face = NULL, colour = NULL,
173173 )
174174}
175175
176- # ' @export
177- # ' @rdname element
178- is_theme_element <- function (x , type = " any" ) {
179- switch (
180- type %|| % " any" ,
181- any = inherits(x , " element" ),
182- rect = inherits(x , " element_rect" ),
183- line = inherits(x , " element_line" ),
184- text = inherits(x , " element_text" ),
185- blank = inherits(x , " element_blank" ),
186- FALSE
187- )
188- }
189-
190176element_polygon <- function (fill = NULL , colour = NULL , linewidth = NULL ,
191177 linetype = NULL , color = NULL ,
192178 inherit.blank = FALSE ) {
@@ -260,6 +246,20 @@ element_geom <- function(
260246 fill = NULL , colour = NULL
261247)
262248
249+ # ' @export
250+ # ' @rdname element
251+ is_theme_element <- function (x , type = " any" ) {
252+ switch (
253+ type %|| % " any" ,
254+ any = inherits(x , " element" ),
255+ rect = inherits(x , " element_rect" ),
256+ line = inherits(x , " element_line" ),
257+ text = inherits(x , " element_text" ),
258+ blank = inherits(x , " element_blank" ),
259+ FALSE
260+ )
261+ }
262+
263263# ' @export
264264print.element <- function (x , ... ) utils :: str(x )
265265
0 commit comments