Test whether an object is a pmx plot theme

Predicate that returns TRUE if x carries the shared "pmx_theme" class – i.e., it was constructed by pmx_theme() or one of plot_dvtime_theme(), plot_gof_theme(), plot_dvconc_theme(), plot_doseprop_theme(), or plot_vpc_theme(). For a specific-type check, use inherits(x, "plot_vpc_theme") (or whichever subclass) directly.

Usage

is_pmx_theme(x, strict = FALSE)

Arguments

x

Object to test.

strict

Logical. When TRUE, additionally checks that every named entry of the theme is a pmx_element. Default FALSE (class-tag check only, cheap).

Value

Logical scalar.

See also

Other pmx theme class: is_pmx_element(), pmx_theme()

Examples

is_pmx_theme(plot_dvtime_theme())                     # TRUE
#> [1] TRUE
is_pmx_theme(plot_vpc_theme())                        # TRUE
#> [1] TRUE
is_pmx_theme(pmx_point())                             # FALSE
#> [1] FALSE
is_pmx_theme(list(obs_point = 1))                     # FALSE
#> [1] FALSE
inherits(plot_vpc_theme(), "plot_vpc_theme")          # TRUE -- specific-type check
#> [1] TRUE