## Not run:
# # 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')
# }
# ## End(Not run)
Run the code above in your browser using DataLab