R/wikitionary.R

In frenchja/SAPATools: A package for use with Synthetic Aperture Personality Assessment.

# 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("&lt;", "", definitions)
  definitions <- gsub("&gt;", "", definitions)
  page <- readHTMLTable(definitions)
  return(page)
}

#wiki.antonym <- function(x){
#  
#}