brand <- as_brand_yml(list(
meta = list(name = "Example Brand"),
color = list(primary = "#FF5733")
))
# Extract the primary color
brand_pluck(brand, "color", "primary") # "#FF5733"
# Try to extract a non-existent element
brand_pluck(brand, "color", "secondary") # NULL
Run the code above in your browser using DataLab