post request gistlib query in r

main.r
library(httr)
library(jsonlite)

# set up the URL and headers
url <- "https://api.gistlib.com/v1/query"
headers <- c("Content-Type" = "application/json", "Authorization" = "Bearer YOUR_API_TOKEN")

# set up the payload as a list or data frame
payload <- list(
  query = "your_query_here",
  variables = list(var1 = "value1", var2 = "value2")
)

# convert the payload to JSON format
payload_json <- toJSON(payload)

# send the POST request
response <- POST(url = url, headers = headers, body = payload_json)

# get the response body as a string
response_content <- content(response, "text")

# convert the response to a list or data frame
response_data <- fromJSON(response_content)
682 chars
25 lines