library(magrittr)
file <- system.file(package = 'yamlet', 'extdata','quinidine.csv')
x <- decorate(file)
x %>% explicit_guide %>% decorations(Age, Race, Heart:glyco)
x %>% explicit_guide %>% classified %>% unclassified %>% decorations(Age, Race, Heart:glyco)
Run the code above in your browser using DataLab