## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)
library(htmlTable)
library(SemNetDictionaries)

## ----tab1, echo = FALSE, eval = TRUE, comment = NA, warning = FALSE-----------
output <- matrix(c("animals", length(animals.dictionary), "Category",
                   "fruits", length(fruits.dictionary), "Category",
                   "general", length(general.dictionary), "All-purpose",
                   "good", length(good.dictionary), "Synonym",
                   "hot", length(hot.dictionary), "Synonym",
                   "jobs", length(jobs.dictionary), "Category",
                   "vegetables", length(vegetables.dictionary), "Category"),
                 ncol = 3, byrow = TRUE)


htmlTable(output,
          header = c("Dictionary", "Entries", "Type"),
          caption = "Table 1. Dictionaries in SemNetDictionaries")

## ----Load dictionary, echo = TRUE, eval = FALSE, comment = NA, warning = FALSE----
#  # Check for available dictionaries
#  dictionaries()
#  # Load 'animals' dictionary
#  load.dictionaries("animals")
#  # Load all words starting with 'f'
#  load.dictionaries("f")
#  # Load multiple dictionaries
#  load.dictionaries("fruits", "vegetables")

## ----Create dictionary, echo = TRUE, eval = FALSE, comment = NA, warning = FALSE----
#  # Create a custom dictionary
#  append.dictionary("your", "words", "here",
#                    "in", "quotations", "and",
#                    "separated", "by", "commas",
#                    dictionary.name = "example",
#                    save.location = "choose")

## ----Append animals dictionary, echo = TRUE, eval = FALSE, comment = NA, warning = FALSE----
#  # Append a pre-defined dictionary
#  append.dictionary(animals.dictionary,
#                    "tasselled wobbegong",
#                    dictionary.name = "new.animals",
#                    save.location = "choose")