Test whether an object has an Ellipse2D class

is_ellipse2d() tests whether an object has an "Ellipse2D" class

Usage

is_ellipse2d(x)

Arguments

x

An object

Value

A logical value

Examples

c1 <- as_ellipse2d(as_coord2d(0.5, 0.5), r = 0.5)
is_ellipse2d(c1)
#> [1] TRUE
is_ellipse2d(c1) && all(c1$is_circle)
#> [1] TRUE
e1 <- as_ellipse2d(as_coord2d(0, 0), rx = 2, ry = 1)
is_ellipse2d(e1)
#> [1] TRUE
is_ellipse2d(e1) && all(e1$is_circle)
#> [1] FALSE