library(hunspell)
hunspell_info("ru_RU")
## $dict
## [1] "/usr/share/hunspell/ru_RU.dic"
## 
## $encoding
## [1] "UTF-8"
## 
## $wordchars
## [1] NA
words <- c("однокласники", "проэкт", "агенство", "зделать", "отзовы", "поликлинника")
hunspell_check(words, dict = "ru_RU")
## [1] FALSE FALSE FALSE FALSE FALSE FALSE
correct <- hunspell_check(words, dict = "ru_RU")
correct
## [1] FALSE FALSE FALSE FALSE FALSE FALSE
hunspell_suggest(words[!correct], dict = "ru_RU") 
## [[1]]
## [1] "одноклассники" "одноклассник"  "одноклассниц"  "одноклубники" 
## [5] "однокурсники" 
## 
## [[2]]
## [1] "проект"
## 
## [[3]]
## [1] "агентство"  "агентств"   "главенство" "гетманство"
## 
## [[4]]
## [1] "делать"   "заделать" "сделать"  "вделать"  "уделать" 
## 
## [[5]]
##  [1] "отвозы"  "отзови"  "отзолы"  "отловы"  "отзывы"  "отзову"  "отцовы" 
##  [8] "от зовы" "вызовы"  "вызов"  
## 
## [[6]]
## [1] "поликлиника" "поликлиник"  "подлинника"  "полтинника"  "поклонника"