Running examples in 'moranajp-Ex.R' failed
The error most likely occurred in:

> ### Name: draw_bigram_network
> ### Title: Draw bigram network using morphological analysis data.
> ### Aliases: draw_bigram_network bigram bigram_net word_freq
> ###   bigram_network_plot
> 
> ### ** Examples
> 
> library(tidyverse)
── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──
✔ ggplot2 3.3.6     ✔ purrr   0.3.4
✔ tibble  3.1.7     ✔ dplyr   1.0.9
✔ tidyr   1.2.0     ✔ stringr 1.4.0
✔ readr   2.1.2     ✔ forcats 0.5.1
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
> data(neko_mecab)
> data(synonym)
> synonym <- 
+   synonym %>% dplyr::mutate_all(stringi::stri_unescape_unicode)
> 
> bigram_neko <- 
+   neko_mecab %>%
+   dplyr::select(-text_id) %>%
+   dplyr::mutate_all(stringi::stri_unescape_unicode) %>%
+   magrittr::set_colnames(stringi::stri_unescape_unicode(colnames(.))) %>%
+   clean_mecab_local(
+     use_common_data = TRUE, 
+     synonym_df = synonym) %>%
+   draw_bigram_network()
Joining, by = "term"
Joining, by = "term"
> 
> add_stop_words <- 
+   c("\\u3042\\u308b", "\\u3059\\u308b", "\\u3066\\u308b", 
+     "\\u3044\\u308b","\\u306e", "\\u306a\\u308b", "\\u304a\\u308b", 
+     "\\u3093", "\\u308c\\u308b", "*") %>% 
+   stringi::stri_unescape_unicode()
> 
> bigram_review <- 
+   review_chamame %>%
+   dplyr::mutate_all(stringi::stri_unescape_unicode) %>%
+   magrittr::set_colnames(stringi::stri_unescape_unicode(colnames(.))) %>%
+   clean_chamame(add_stop_words = add_stop_words) %>%
+   draw_bigram_network()
Error in `dplyr::bind_cols()`:
! number of characters is not computable in "bytes" encoding, element 1
Backtrace:
     ▆
  1. ├─... %>% draw_bigram_network()
  2. ├─moranajp::draw_bigram_network(.)
  3. │ ├─bigram(df, ...) %>% bigram_net(...)
  4. │ └─moranajp::bigram(df, ...)
  5. │   └─... %>% dplyr::arrange(dplyr::desc(.data[[freq]]))
  6. ├─moranajp::bigram_net(., ...)
  7. │ └─dplyr::slice(bigram, threshold)
  8. ├─dplyr::arrange(., dplyr::desc(.data[[freq]]))
  9. ├─dplyr::ungroup(.)
 10. ├─dplyr::tally(...)
 11. ├─dplyr::group_by(., .data[[word_1]], .data[[word_2]])
 12. ├─stats::na.omit(.)
 13. ├─dplyr::ungroup(.)
 14. ├─dplyr::transmute(...)
 15. ├─dplyr::group_by(., .data[[text_id]])
 16. ├─moranajp::clean_chamame(., add_stop_words = add_stop_words)
 17. │ └─... %>% replace_words(...)
 18. ├─moranajp::replace_words(., ...)
 19. ├─moranajp::delete_stop_words(., ...)
 20. │ └─dplyr::anti_join(df, stop_words)
 21. ├─moranajp::pos_filter_chamame(.)
 22. │ └─df %>% ...
 23. ├─moranajp::add_text_id_df(., "pos1", stringi::stri_unescape_unicode("\\u53e5\\u70b9"))
 24. │ └─dplyr::bind_cols(df, text_id = text_id)
 25. │   ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
 26. │   │ └─base::withCallingHandlers(...)
 27. │   └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
 28. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
 29. │ └─rlang::names_inform_repair(orig_names, names)
 30. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
 31. │     ├─base::withRestarts(...)
 32. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
 33. │     │   └─base (local) doWithOneRestart(return(expr), restart)
 34. │     └─base::signalCondition(cnd)
 35. │       ├─base::conditionMessage(cond)
 36. │       └─rlang:::conditionMessage.rlang_message(cond)
 37. │         └─rlang::cnd_message(c)
 38. │           └─rlang:::cnd_message_format(cnd, ...)
 39. │             └─rlang (local) cli_format(glue_escape(lines))
 40. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
 41. │                 └─cli::cli_format(x, .envir = emptyenv())
 42. │                   └─cli:::fmt(...)
 43. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
 44. │                       ├─base::do.call(app[[msg$type]], msg$args)
 45. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-48", class = NULL)
 46. │                         └─cli:::clii_bullets(app, text, id, class)
 47. │                           └─base::lapply(...)
 48. │                             └─cli (local) FUN(X[[i]], ...)
 49. │                               └─app$text(text[[i]])
 50. │                                 └─cli:::clii_text(app, text)
 51. │                                   └─app$xtext(text)
 52. │                                     └─cli:::clii__xtext(...)
 53. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
 54. │                                         └─base::lapply(pars, ansi_trimws)
 55. │                                           └─cli (local) FUN(X[[i]], ...)
 56. └─base::.handleSimpleError(...)
 57.   └─dplyr (local) h(simpleError(msg, call))
 58.     └─rlang::cnd_signal(cnd)
Execution halted