Extract characters that differ between two strings

Question

I have used adist to calculate the number of characters that differ between two strings:

a <- \"Happy day\"
b <- \"Tappy Pay\"
adist(a,b)          


        

Answer 1

Not really proud of this, but it seems to do the job:

sapply(setdiff(utf8ToInt(a), utf8ToInt(b)), intToUtf8)

Results:

[1] "H" "d"