## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(moranajp)

## ----eval = FALSE-------------------------------------------------------------
#  data(neko)
#  neko <- unescape_utf(neko)
#  head(neko)
#  
#  n_match <-
#    list.files(bin_dir) |>
#    stringr::str_count("mecab") |>
#    sum()
#  
#    # if(n_match > 0){
#    #   neko |>
#    #     unescape_utf() |>
#    #     moranajp_all(text_col = "text", bin_dir = bin_dir, iconv = "CP932_UTF-8") |>
#    #     print(n=100)
#    # }