丸数字うざー!!
はい。めんどいですね丸数字
調べても全然情報無いし。
てわけでRだけでサクッと処理するように作ってみました。
ベクトル対応なので雑に手軽に使えると思います〜
pacman::p_load(tidyverse, stringr)
# 丸数字を通常数字に置き換える
marunum2num <- function(input) {
maru_all <- "①②③④⑤⑥⑦⑧⑨⑩⑪⑫⑬⑭⑮⑯⑰⑱⑲⑳㉑㉒㉓㉔㉕㉖㉗㉘㉙㉚㉛㉜㉝㉞㉟㊱㊲㊳㊴㊵㊶㊷㊸㊹㊺㊻㊼㊽㊾㊿"
maru_v <- str_split_1(maru_all, "")
onetofifty <- 1:50 %>% as.character
names(onetofifty) <- maru_v
str_replace_all(input, onetofifty)
}
R の Named argumentを使った置き換えは色々と応用が効いて便利ですね