data-raw/polano.R

## code to prepare `polano` dataset goes here

polano <- readr::read_lines("data-raw/poranono_hiroba.txt")
polano <- stringi::stri_trans_nfkc(polano)
polano <- stringr::str_remove_all(polano, "[[:blank:]|\\.]+") # 三点リーダは半角ピリオドになる

hiroba <- gibasa::gbs_tokenize(polano)

usethis::use_data(polano, overwrite = TRUE)
usethis::use_data(hiroba, overwrite = TRUE)
paithiov909/audubon documentation built on Sept. 28, 2024, 8:47 a.m.