# 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'))
Run the code above in your browser using DataLab