Set up gh for GraphQL calls to meetup.com

[schloerke]

Uses {gh::gh()} under the hood, not {httr::POST()}.

Queries are run through {glue::glue_data(list(extra_graphql=extra_graphql), query)} to add fields not originally in the query.

Ex:

❯❯ regular <- gql_single_event(urlname = "Data-Science-DC")

❯❯ bigger <- gql_single_event(urlname = "Data-Science-DC", extra_graphql = "host { name }")

❯❯ length(regular)
[1] 127

❯❯ str(regular[[127]])
List of 10
 $ id         : chr "281553470!chp"
 $ title      : chr "Apache Iceberg - An Architectural Look Under the Covers"
 $ eventUrl   : chr "https://www.meetup.com/Data-Science-DC/events/281553470"
 $ dateTime   : chr "2021-11-09T18:00-05:00"
 $ createdAt  : NULL
 $ going      : int 89
 $ waiting    : int 0
 $ venue      :List of 6
  ..$ name      : chr "Online event"
  ..$ address   : chr ""
  ..$ city      : chr ""
  ..$ state     : chr ""
  ..$ postalCode: chr ""
  ..$ country   : chr ""
 $ description: chr "Data Lakes were built with a desire to democratize data - to allow more and more people, tools, and application"| __truncated__
 $ type       : chr "past"

❯❯ str(bigger[[127]])
List of 11
 $ id         : chr "281553470!chp"
 $ title      : chr "Apache Iceberg - An Architectural Look Under the Covers"
 $ eventUrl   : chr "https://www.meetup.com/Data-Science-DC/events/281553470"
 $ dateTime   : chr "2021-11-09T18:00-05:00"
 $ createdAt  : NULL
 $ going      : int 89
 $ waiting    : int 0
 $ venue      :List of 6
  ..$ name      : chr "Online event"
  ..$ address   : chr ""
  ..$ city      : chr ""
  ..$ state     : chr ""
  ..$ postalCode: chr ""
  ..$ country   : chr ""
 $ description: chr "Data Lakes were built with a desire to democratize data - to allow more and more people, tools, and application"| __truncated__
 $ host       :List of 1
  ..$ name: chr "Tommy Jones"
 $ type       : chr "past"