## Not run:
# library(pushoverr)
#
# # Create PushoverResponse object based on a POST to Pushover
# response <- POST(url="https://api.pushover.net/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/1/messages.json",
# body=params)
# response <- PushoverResponse(status=1,
# request='8345bfe5fbd7d346028f2863de77c8c4',
# status_code=200,cheaders=resp$headers,
# content=content(rsp))
# ## End(Not run)
Run the code above in your browser using DataLab