## Not run:
# response <- validate_key(token='KzGDORePK8gMaC0QOYAMyEEuzJnyU',
# user='uQiRzpo4DXghDmr9QzzfQu27cmVRsG')
# response_dev <- validate_key(token='KzGDORePK8gMaC0QOYAMyEEuzJnyU',
# user='uQiRzpo4DXghDmr9QzzfQu27cmVRsG',
# device='phone')
#
# if(is.valid_key(token='KzGDORePK8gMaC0QOYAMyEEuzJnyU',
# user='uQiRzpo4DXghDmr9QzzfQu27cmVRsG',
# device='phone'))
# {
# cat('I can send to this device!')
# }
# ## End(Not run)
Run the code above in your browser using DataLab