## ---- eval=FALSE---------------------------------------------------------
# #Retrieve an item
# item <- get_item(id = 1)
#
# #Get information about the property of the first claim it has.
# first_claim <- get_property(id = names(item$claims)[1])
# #Do we succeed? Dewey!
## ---- eval=FALSE---------------------------------------------------------
# #Retrieve a random item
# rand_item <- get_random_item()
#
# #Retrieve a random property
# rand_prop <- get_random_property()
## ---- eval=FALSE---------------------------------------------------------
# #Retrieve 42 random items
# rand_item <- get_random_item(limit = 42)
#
# #Retrieve 42 random properties
# rand_prop <- get_random_property(limit = 42)
## ---- eval=FALSE---------------------------------------------------------
# #Find item - find defaults to "en" as a language.
# aarons <- find_item("Aaron Halfaker")
#
# #Find a property - also defaults to "en"
# first_names <- find_property("first name")
## ---- eval=FALSE---------------------------------------------------------
# #Find item.
# all_aarons <- find_item("Aaron Halfaker")
#
# #Grab the ID code for the first entry and retrieve the associated item data.
# first_aaron <- get_item(all_aarons[[1]]$id)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.