library(stringr)
x <- c("saɪəns", "ɪvɒlvd", "ˌʌndəstænd", "skɑːb(ə)rə", "pəteɪtəʊ", "dɪskraɪbdɪ")
sapply(str_extract_all(x, "(.)(?=.*\\1)"), function(z) paste(unique(z), collapse=""))