# Installing httr
install.packages("httr")
  
# including the library
library(httr)

# call the URL with the GET method
wordInfo <- GET("https://api.dictionaryapi.dev/api/v2/entries/en/geek")

# installing and loading jsonlite library
install.packages("jsonlite")
library(jsonlite)
  
rawToChar(wordInfo$content)

# convert to cleaner format
data <- fromJSON(rawToChar(wordInfo$content))

data$meanings

datameanings[[1]][[2]][[1]]definition

'A carnival performer specializing in bizarre and unappetizing behavior.'
'A person who is intensely interested in a particular field or hobby 
 and often having limited or nonstandard social skills. Often used with 
 an attributive noun.'
'(by extension) An expert in a technical field, particularly one having
 to do with computers.''The subculture of geeks; an esoteric subject of
 interest that is marginal to the social mainstream; the philosophy, events,
 and physical artifacts of geeks; geekness.''An unfashionable or socially
 undesirable person.'

library(httr)
library(jsonlite)
# storing search query in a variable
word <- "competition"
# appending the query at the end
wordInfo <- GET(paste("https://api.dictionaryapi.dev/api/v2/entries/en/", word))
  
data <- fromJSON(rawToChar(wordInfocontent))
  
datameanings[[1]][[2]][[1]]$definition

'The action of competing.'
'A contest for a prize or award.'
'The competitors in such a contest.'