## Not run:
# workspace_id <- "" # Your AzureML workspace id
# authorization_token <- "" # Your AsureML authorization token
#
# ws <- workspace(
# id = workspace_id,
# auth = authorization_token
# )
#
# s <- services(ws)
# endpoints(ws, s$Id[1])
#
# # Note that you can alternatively just use the entire row that
# # describes the service.
# endpoints(ws, s[1,])
#
# # Equivalent:
# getEndpoints(ws, s$Id[1])
# ## End(Not run)
Run the code above in your browser using DataLab