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) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment