# Wiktionary R API
# Authors: David M. Condon and Jason A. French <jason@sapa-project.org>
# TODO
# 1. Add Rhyme lookup.
#wiki.login <- function(user,password){
# require(RCurl)
# https://en.wiktionary.org/w/api.php?action=login&lgname=user&lgpassword=password
#}
#wiki.logout <- function(){
# https://en.wiktionary.org/w/api.php?action=logout
#}
wiki.search <- function(x){
require(RCurl)
require(RJSONIO)
data <- getForm(
"https://en.wiktionary.org/w/api.php",
action = "opensearch",
search = x
)
return(fromJSON(data))
}
wiki.compound <- function(x){
# Function to find compound words from a given stem
# Arg:
# x: stem word (e.g., 'book')
# Returns: list of compound words
require(RCurl)
require(RJSONIO)
words <- getForm(
"https://en.wiktionary.org/w/api.php",
action = "opensearch",
search = x
)
words <- fromJSON(words)[[2]]
compounds <- words[which(nchar(words)>(nchar(x)+3))]
return(unlist(compounds))
}
wiki.synonym <- function(x){
# https://en.wiktionary.org/w/api.php?action=query&titles=book&redirects=1&prop=extracts
require(RCurl)
require(XML)
definitions <- getForm(
"https://en.wiktionary.org/w/api.php",
action = 'query',
titles = x,
redirects = '1',
prop = 'extracts',
explaintext = 1
)
definitions <- gsub("<.*?>", "", definitions) # Filter html codes
definitions <- gsub("<", "", definitions)
definitions <- gsub(">", "", definitions)
page <- readHTMLTable(definitions)
return(page)
}
#wiki.antonym <- function(x){
#
#}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.