① Rで丸数字をさっさと扱う ㊿

丸数字うざー！！

はい。めんどいですね丸数字
調べても全然情報無いし。

てわけで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を使った置き換えは色々と応用が効いて便利ですね