library(magrittr)
x <- data.frame(x = 1, y = 1, z = factor('a'))
x %<>% decorate('
x: [ guide: mm, desc: this, label: foo ]
"y": [ guide: bar, desc: other ]
')
decorations(x)
decorations(canonical(x))
canonical(decorations(x))
write_yamlet(x)
Run the code above in your browser using DataLab