“男友让我打十万个「对不起」，汉字标上多少遍。”这个问题用r如何实现？

关键是“汉字标上多少遍”。还有“对不起”必须是中文的。男友让我打十万个「对不起」，汉字标上多少遍。如何快速实现？ – 生活回复内容：
excel vba一行解决，一百万以内无压力，感谢度娘:-)=”对不起，第”&if(a10) xa = xa[-dup]
if (xa[length(xa)] == 0) xa = xa[-length(xa)]
xa = map(xa, digital, chs)
return(paste(xa, collapse=””))
}
change = function(x)
{
if (x>=10000)
{
if((x %/% 10000) %% 10 == 0)
{
if (x %% 10000 == 0)
return(paste(change.simple(x %/% 10000), “万”, sep = “”))
else
return(paste(change.simple(x %/% 10000), “万零”, change.simple(x %% 10000), sep = “”))
}else
{
if (x %% 10000