{
library(dplyr)
###### Example 1: use madshapR_examples provided by the package
dataset <-
madshapR_examples$`dataset_example` %>%
mutate(prg_ever_cat = as_category(prg_ever)) %>%
mutate(prg_ever_no_cat = drop_category(prg_ever))
is_category(dataset[['prg_ever_cat']])
is_category(dataset[['prg_ever_no_cat']])
###### Example 2: any data frame can be a dataset
iris %>% reframe(across(everything(), is_category))
}
Run the code above in your browser using DataLab