tpemartin / 109-2-app101

https://tpemartin.github.io/109-2-app101/
1 stars 10 forks source link

如何更改chinese_martin.R 中的tenth參數? #70

Closed Simmonslin closed 3 years ago

Simmonslin commented 3 years ago
tenth <- {
    stringr::str_extract(non_arabics,
                         "[一二三四五六七八九壹貳參肆伍陸柒捌玖](?=[十拾]|0$)") -> 
      tenth
    whichIs30 <- stringr::str_which(non_arabics,"卅")
    convert_chn2arabics(tenth) -> tenth
    tenth[whichIs30] <- "3"
    na_is_0(tenth)
  }

執行tenth時參數non_arabics會出問題,導致民國四十、民國六十、民國卅開頭年份全部被辨別為無效字串。 猜測原因可能是windows系統有文字讀取問題 ( Mac在轉換data上沒有問題 ),請問如何修改"一二三四五六七八九壹貳參肆伍陸柒捌玖")串列?

( 好奇其他用Windows系統的各位有碰到類似問題嗎?)