# \donttest{
# First create a sample database
unified_db <- list(
measures = list(
test1 = list(reference = "@Smith2023[p.45]"),
test2 = list(reference = "Jones (2022)"),
test3 = list(reference = "Brown[2021]")
)
)
# Find all entries with @, [, or ] in references
entries_to_clean <- boilerplate_find_chars(
db = unified_db,
field = "reference",
chars = c("@", "[", "]"),
category = "measures"
)
# Find entries but exclude specific ones
entries_to_clean <- boilerplate_find_chars(
db = unified_db,
field = "reference",
chars = c("@", "[", "]"),
exclude_entries = c("forgiveness", "special_*"),
category = "measures"
)
# }
Run the code above in your browser using DataLab