# Send an emergency message to a group, and see if it's been acknowledged
msg <- PushoverMessage(mesage='Get back to work',
token='KzGDORePK8gMaC0QOYAMyEEuzJnyUi',
user=' gznej3rKEVAvPUxu9vvNnqpmZpokzF')
response <- send(msg)
r <- receipt(response)
if(is.acknowledged(token='KzGDORePK8gMaC0QOYAMyEEuzJnyUi',
receipt=r))
{
cat('Message has been read.\n')
}
Run the code above in your browser using DataLab