library(pushoverr)
# Create PushoverResponse object
response <- POST(url="https://api.pushover.net:443/1/messages.json",
body=params)
response <- PushoverResponse(status=1,
request='8345bfe5fbd7d346028f2863de77c8c4',
status_code=200,cheaders=resp$headers,
content=content(rsp))
Run the code above in your browser using DataLab