suffix_match(
string = c("one", "banana"),
to_match = c("number", "fruit"),
.match = "number",
suffix = "_num"
)
suffix_match(
string = c("tag1", "tag2"),
to_match = c("dead", "not-dead"),
.match = "dead",
suffix = ".d"
)
vft <- data.frame(
Tag = c("01", "02"),
Status = c("dead", "alive"),
stringsAsFactors = FALSE
)
transform(vft, tagged = suffix_match(Tag, Status, "dead", ".d"))
Run the code above in your browser using DataLab