@@ -173,20 +173,6 @@ element_text <- function(family = NULL, face = NULL, colour = NULL,
173
173
)
174
174
}
175
175
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
-
190
176
element_polygon <- function (fill = NULL , colour = NULL , linewidth = NULL ,
191
177
linetype = NULL , color = NULL ,
192
178
inherit.blank = FALSE ) {
@@ -260,6 +246,20 @@ element_geom <- function(
260
246
fill = NULL , colour = NULL
261
247
)
262
248
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
+
263
263
# ' @export
264
264
print.element <- function (x , ... ) utils :: str(x )
265
265
0 commit comments