## Not run:
# # Get the acknowledged status of an emergency message
# message <- PushoverMessage(message='EMERGENCY!', priority=2,
# token='KzGDORePK8gMaC0QOYAMyEEuzJnyUi',
# user='uQiRzpo4DXghDmr9QzzfQu27cmVRsG')
# response <- send(message)
# acknowledged <- as.numeric(content_value(response, 'acknowledged'))
# ## End(Not run)
Run the code above in your browser using DataLab