http://stackoverflow.com/questions/24257850/fast-partial-string-matching-in-rarrow-up-right
http://stackoverflow.com/questions/1169248/r-function-for-testing-if-a-vector-contains-a-given-elementarrow-up-right
http://stackoverflow.com/questions/25391975/grepl-in-r-to-find-matches-to-any-of-a-list-of-character-stringsarrow-up-right
吳<U+855A>洋 和 游錫<U+5803> 。要把他轉回原本該有的中文字
吳<U+855A>洋
游錫<U+5803>
Last updated 5 years ago
raw %>% mutate(title = purrr::map(title, function(x){stringi::stri_unescape_unicode(gsub("<U\\+(....)>", "\\\\u\\1", x))})) %>%