# Basic usage
main_data <- data.frame(
name = c("AB", "B,C", "A..", "ACD"),
value = c(1, 2, 3, 4),
stringsAsFactors = FALSE
)
key_lookup <- data.frame(
key = c("A", "B", "C", "ACD", "AB"),
category = c("cat1", "cat2", "cat3", "cat4", "cat1"),
code = c("001", "002", "003", "004", "001"),
stringsAsFactors = FALSE
)
result <- merge_by_substring(main_data, key_lookup,
search_col = "name",
key_col = "key", value_cols = c("category", "code")
)
print(result)
Run the code above in your browser using DataLab