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