# Load example objects
examples <- readRDS(system.file("extdata", "example_objects.rds", package = "quallmer"))
coded <- examples$example_coded_sentiment
# User metadata (default)
qlm_meta(coded)
qlm_meta(coded, "name")
# Object metadata
qlm_meta(coded, type = "object")
qlm_meta(coded, "call", type = "object")
qlm_meta(coded, "n_units", type = "object")
# System metadata
qlm_meta(coded, type = "system")
qlm_meta(coded, "timestamp", type = "system")
# All metadata
qlm_meta(coded, type = "all")
# Modify user metadata
qlm_meta(coded, "name") <- "updated_run"
qlm_meta(coded, "notes") <- "Analysis notes"
# Set multiple fields at once
qlm_meta(coded) <- list(name = "final_run", notes = "Final analysis")
if (FALSE) {
# This will error - object and system metadata are read-only
qlm_meta(coded, "timestamp") <- Sys.time()
}
Run the code above in your browser using DataLab