library(pushoverr)
# Create a PushoverMessage
m2 <- PushoverMessage(message='Hi there',
token='KzGDORePK8gMaC0QOYAMyEEuzJnyUi',
user='KAWXTswy4cekx6vZbHBKbCKk1c1fdf')
# If the app token and user key have already been set, messages can be
# created with just the message argument
set_pushover_user('KAWXTswy4cekx6vZbHBKbCKk1c1fdf')
set_pushover_app('KzGDORePK8gMaC0QOYAMyEEuzJnyUi')
m3 <- PushoverMessage(message='so much less work!')
Run the code above in your browser using DataLab