Tigo oauth endpoints

Tigo oauth endpoints

tigo_oauth(endpoint, token = get_token()$auth)

Arguments

endpoint	Tigo endpoint
token	Tigo token get_token

Value

data returned from endpoint

Examples

if (FALSE) {
systems <- tigo_oauth(endpoint = tigo_api()$systems)
system_id <- systems$systems[[1]]$system_id
sources <- tigo_oauth(endpoint = sprintf("%s%d", tigo_api()$sources, system_id))
objects <- tigo_oauth(endpoint = sprintf("%s%d", tigo_api()$objects, system_id))
}