# Load example objects
examples <- readRDS(system.file("extdata", "example_objects.rds", package = "quallmer"))
coded <- examples$example_coded_sentiment
# Extract codebook
cb <- codebook(coded)
cb
# Access codebook metadata
qlm_meta(cb, "name")
Run the code above in your browser using DataLab