Test if object is a sampling_design
See also
Other helpers:
as_tbl_sample(),
bound(),
get_design(),
get_stages_executed(),
is_tbl_sample(),
print.samplyr,
serp()
Examples
design <- sampling_design() |> draw(n = 20)
is_sampling_design(design)
#> [1] TRUE
is_sampling_design(bfa_eas)
#> [1] FALSE