Error: when inputting correct text

修正する箇所がない文章を与えた時にエラーを返してしまう

library(textlintr)

writeLines(
  "正しい日本語とは一体なんでしょうか。\n\naaaa\n\nuseful",
  "sample.txt"
)
paste(readLines("sample.txt"), collapse = "\n")
#> [1] "正しい日本語とは一体なんでしょうか。\n\naaaa\n\nuseful"

init_textlintr(rules = c("common-misspellings", "preset-jtf-style"))
#> Yeah! Install was successful
textlint("sample.txt")
#> Error in apply(lint_res_parsed, 1, function(x) {: dim(X) must have a positive length

Created on 2018-10-07 by the reprex package (v0.2.0).

uribo / textlintr

Error: when inputting correct text #7