<purrr_error_indexed/rlang_error/error/condition>
Error in `purrr::map(purrr::map(dplyr::group_split(make_groups(tbl, text_col = text_col, 
    length = 8000, tmp_group = tmp_group, str_length = str_length), 
    .data[[tmp_group]]), dplyr::select, dplyr::all_of(text_col)), 
    moranajp, bin_dir = bin_dir, method = method, text_col = text_col, 
    option = option, iconv = iconv, col_lang = col_lang)`: i In index: 1.
Caused by error in `system()`:
! 'd:/pf/mecab/bin/mecab' not found

tibble::tibble(col=c(rep("a", times[1]), "EOS", rep("b", times[2]), "EOS", rep("c", times[3]), "EOS"))
res <- c(rep(1, times[1]), rep(2, times[2] + 1), rep(3, times[3] + 1), 4)       # "+ 1": because of EOS
expect_equal(add_text_id(tbl, method = "mecab", brk = "EOS")$text_id, res)
test_that("text_id of moranajp matches text number", {
moranajp_all(text_col = "text", bin_dir = bin_dir, iconv = "CP932_UTF-8")

"text_id of moranajp matches text number"