## Not run:
# response <- check_receipt(token='KzGDORePK8gMaC0QOYAMyEEuzJnyUi',
# receipt='KAWXTswy4cekx6vZbHBKbCKk1c1fdf')
#
# if(is.acknowledged(token='KzGDORePK8gMaC0QOYAMyEEuzJnyUi',
# receipt='KAWXTswy4cekx6vZbHBKbCKk1c1fdf'))
# {
# cat('Message has been read.\n')
# }
# ## End(Not run)
Run the code above in your browser using DataLab