library(pushoverr)
# Create a PushoverMessage
m1 <- PushoverMessage(message='Hi there',
token='KzGDORePK8gMaC0QOYAMyEEuzJnyUi',
user='KAWXTswy4cekx6vZbHBKbCKk1c1fdf')
Run the code above in your browser using DataLab