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!')
}
Run the code above in your browser using DataLab