# find data file
file <- system.file(package = 'yamlet', 'extdata','quinidine.csv')
file
# find metadata file
meta <- system.file(package = 'yamlet', 'extdata','quinidine.yaml')
meta
# decorate with explicit metadata reference
a <- decorate(file, meta)
# rely on default metadata path
b <- decorate(file)
# in this case: same
stopifnot(identical(a, b))
Run the code above in your browser using DataLab