words.R

library(birdnik)

random_word <- function(key,
                        pos="adjective", min_count=100, n=1,
                        min_length = 5, max_length = 15){
  
  param <- paste0("words.json/randomWords?hasDictionaryDef=true",
                  "&minCorpusCount=",min_count,
                  "&minLength=",min_length,
                  "&maxLength=",max_length,
                  "&limit=",n,
                  "&includePartOfSpeech=",pos)

  raw = birdnik:::query(key = key,params = param)
  do.call(rbind,lapply(raw,as.data.frame))
}

random_word(key=my_wordnik_key,pos="noun",n=3, min_count=1000)