Perform an HTTP request to Whapi.Cloud — whapi_perform

Generic helper wrapping httr2 to call Whapi endpoints. Supports methods: "GET", "POST", "PUT". Handles JSON encoding, retries, errors, and CLI logging.

Usage

whapi_perform_request(
  endpoint,
  payload = NULL,
  token = Sys.getenv("WHAPI_TOKEN", unset = ""),
  timeout = 30,
  verbose = TRUE,
  method = c("POST", "GET", "PUT")
)

Arguments

endpoint: Character(1). Endpoint path (e.g. "messages/text"). Full URL is constructed as "https://gate.whapi.cloud/{endpoint}".
payload: List. Request body (for POST/PUT) or query (for GET). Default: NULL.
token: Character(1). Bearer token. Defaults to env var WHAPI_TOKEN.
timeout: Numeric. Timeout in seconds. Default 30.
verbose: Logical. Print progress via cli? Default TRUE.
method: Character(1). HTTP method ("GET", "POST", "PUT"). Default "POST".

Value

Parsed JSON response as a list.

Examples

# out <- whapi_perform_request("messages/text", list(to="5581...", body="Hi"), method="POST")
# out <- whapi_perform_request("messages/12345", list(status="read"), method="PUT")