syn - the thesaurus
Branch: master
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Type Name Latest commit message Commit time
Failed to load latest commit information.
R
data-raw
docs update pkgdown Nov 29, 2018
man
tests
.Rbuildignore
.gitignore
.travis.yml
CODE_OF_CONDUCT.md
DESCRIPTION
LICENSE
NAMESPACE antonyms from wordnet Nov 27, 2018
NEWS.md
README.Rmd
README.md
_pkgdown.yml update CSS theme for syn Nov 27, 2018
appveyor.yml establish travis and appveyor Nov 27, 2018
codecov.yml
syn.Rproj launch package 🎉 Mar 29, 2018

README.md

syn

Travis build statusAppVeyor build statusCoverage statusProject Status: Active – The project has reached a stable, usable state and is being actively developed.

syn is a zero dependency R package that lists synonyms and antonyms.

There are two main functions:

  • syn("great") Returns synonyms of “great”
  • ant("great") Returns antonyms of “great”.

syn and ant take one word as input. To return synonyms for many words, use the plural form: syns, and ants

  • syns(c("great", "excellent") Returns named list of synonyms of “great”, and “excellent”
  • ants(c("great", "excellent") Returns named list of antonyms of “great”, and “excellent”

Example: Synonyms for “cool”

The syn function returns all synonyms for a given word:

Let’s look at synonyms for “cool”:

library(syn)

syn_cool <- syn("cool")

head(syn_cool)
#> [1] "abate"          "abnegation"     "above all that" "absolute zero" 
#> [5] "abstinence"     "ace-high"
tail(syn_cool)
#> [1] "withhold"       "without nerves" "wizard"         "wonderless"    
#> [5] "wonderlessness" "zealless"

Wow, there are a lot! How many are there?

length(syn_cool)
#> [1] 618

Wow! There are 618 synonyms for cool. That’s…stable, I guess.

You can also provide it a number of words to return with the n_words argument, which will randomly select the number of words given

syn("awesome", 1)
#> [1] "aggrandized"
syn("awesome", 2)
#> [1] "incredible" "sacrosanct"
syn("awesome", 5)
#> [1] "immortalized" "stupendous"   "king-size"    "reverend"    
#> [5] "massive"

Example: Creating a sentence

OK cool, let’s use these in a sentence, using the glue package. Which of these better?

glue::glue("This is really cool!")
#> This is really cool!
glue::glue("This is really {syn('cool', 1)}!")
#> This is really purposive!
glue::glue("This is really {syn('cool', 10)}!")
#> This is really distant!
#> This is really sound!
#> This is really half-frozen!
#> This is really even out!
#> This is really level-headed!
#> This is really introverted!
#> This is really undemonstrative!
#> This is really lukewarm!
#> This is really unflappable!
#> This is really commonsense!

Using multiple words with syns

You can generate synonyms for multiple words with the syns function. This takes a vector of words, returning a named list

syns_good_evil <- syns(c("good", "evil"))
str(syns_good_evil)
#> List of 2
#>  $ good: chr [1:667] "able to pay" "absolutely" "acceptable" "accomplished" ...
#>  $ evil: chr [1:365] "aberrant" "abnormal" "abominable" "abomination" ...

You can also provide n_words for syns, and it will return a random selection of the words of that number.

syns(c("good", "evil"),
     n_words =  10)
#> $good
#>  [1] "kindly-disposed" "competent"       "good for"       
#>  [4] "cordial"         "expert"          "thorough"       
#>  [7] "unimitated"      "hygeian"         "enough"         
#> [10] "amen"           
#> 
#> $evil
#>  [1] "of evil portent" "reprehensible"   "defilement"     
#>  [4] "repulsive"       "unchastity"      "delinquent"     
#>  [7] "carnality"       "sinful"          "destructive"    
#> [10] "angry"

Example: Antonyms (under development)

To create antonyms, use ant and ants, which have the same inputs as syn. However, at this stage, the number of antonyms available for use by ant is small.

ant("good")
#> [1] "bad"  "evil"
ant("good",1)
#> [1] "evil"

ant("strong")
#> [1] "weak"
ants(c("good", "evil"))
#> $good
#> [1] "bad"  "evil"
#> 
#> $evil
#> [1] "good"

ants(c("good", "evil"), n_words = 5)
#> $good
#> [1] "evil" "bad" 
#> 
#> $evil
#> [1] "good"

ants(c("strong", "weak"))
#> $strong
#> [1] "weak"
#> 
#> $weak
#> [1] "strong"

Code of Conduct

Please note that the ‘syn’ project is released with a Contributor Code of Conduct. By contributing to this project, you agree to abide by its terms.