---
title: "moranajp"
author: "Toshikazu, Matsumura"
date: "`r Sys.Date()`"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{moranajp}
  %\VignetteEngine{knitr::rmarkdown}
---

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```

```{r setup}
library(moranajp)
```

```{r, 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)
  # }
```
