library(pushoverr)
# Create PushoverResponse object based on a POST to Pushover
response <- POST(url="https://api.pushover.net:443/1/messages.json",
body=params)
response <- new("PushoverResponse", status=1,
request='8345bfe5fbd7d346028f2863de77c8c4',
status_code=200,
headers=resp$headers,
content=content(rsp))
# Create PushoverResponse object using constructor
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