available_devs <- get_devices(token='KzGDORePK8gMaC0QOYAMyEEuzJnyUi',
user='uQiRzpo4DXghDmr9QzzfQu27cmVRsG')
is.device(device='phone',
token='KzGDORePK8gMaC0QOYAMyEEuzJnyUi',
user='uQiRzpo4DXghDmr9QzzfQu27cmVRsG')Run the code above in your browser using DataLab