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