# NOT RUN {
library(metan)
df <-
data_ge2 %>%
add_class("my_class")
class(df)
has_class(df, "my_class")
remove_class(df, "my_class") %>% class()
set_class(df, "data_frame") %>% class()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab