# NOT RUN {
library(csv)
file <- system.file(package = 'yamlet', 'extdata','quinidine.csv')
x <- decorate(as.csv(file))
identical(decorate(as.csv(file)), decorate(file))
decorations(x) # but prefer as_yamlet(x)
# }
Run the code above in your browser using DataLab