## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----eval = FALSE-------------------------------------------------------------
# # Load gkgraphR library
# library(gkgraphR)
# 
# # Query the API for entities related to the term "apple"
# query_apple <- querygkg(query = "apple", api.key = {YOUR_API_KEY}) # Replace YOUR_API_KEY with a valid Google API key

## ----eval = FALSE-------------------------------------------------------------
# # Query the API for the entity "apple" representing the fruit
# query_apple_fruit <- querygkg(ids = "/m/014j1m", api.key = {YOUR_API_KEY}) # Replace YOUR_API_KEY with a valid Google API key
# 
# # Query the API for the entity "apple" representing the fruit
# query_apple_company <- querygkg(ids = "/m/0k8z", api.key = {YOUR_API_KEY}) # Replace YOUR_API_KEY with a valid Google API key

## ----eval = FALSE-------------------------------------------------------------
# # Query the API for entities related to the term "manzana" in Spanish
# query_apple_es <- querygkg(query = "manzana", lang = "es", api.key = {YOUR_API_KEY}) # Replace YOUR_API_KEY with a valid Google API key
# 
# # Query the API for the entities related to the term "apple" representing a "thing"
# query_apple_thing <- querygkg(query = "manzana", type = "Thing", api.key = {YOUR_API_KEY}) # Replace YOUR_API_KEY with a valid Google API key

## ----eval = FALSE-------------------------------------------------------------
# # Increasing API limit call to 50
# query_apple_limit <- querygkg(query = "apple", limit = 50, api.key = {YOUR_API_KEY}) # Replace YOUR_API_KEY with a valid Google API key

## ----eval = FALSE-------------------------------------------------------------
# # Return the original JSON object obtained from the API
# query_apple_json <- querygkg(query = "apple", json = TRUE, api.key = {YOUR_API_KEY}) # Replace YOUR_API_KEY with a valid Google API key
# 
# # Return the complete object obtained from the API as an R object
# query_apple_r <- querygkg(query = "apple", json = TRUE, api.key = {YOUR_API_KEY}) # Replace YOUR_API_KEY with a valid Google API key