library(pushoverr)
message <- PushoverMessage(message='Hello World',
token='KzGDORePK8gMaC0QOYAMyEEuzJnyUi',
user='uQiRzpo4DXghDmr9QzzfQu27cmVRsG')
response <- send(message)
Run the code above in your browser using DataLab