Skip to content

Instantly share code, notes, and snippets.



Last active Mar 13, 2017
What would you like to do?
random_word <- function(key,
pos="adjective", min_count=100, n=1,
min_length = 5, max_length = 15){
param <- paste0("words.json/randomWords?hasDictionaryDef=true",
raw = birdnik:::query(key = key,params = param),lapply(raw,
random_word(key=my_wordnik_key,pos="noun",n=3, min_count=1000)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.