(FYI, that isn't my real secret.)
library('devtools')
load_all('.')
app.net_configuration = Configuration$new(
api_root = 'https://alpha-api.app.net/stream/',
api_version = '0'
)
app.net_authorization <- Authorization$new(
application_name = 'rebuke',
client_id = '3KYmEnmDxA5XxgV6wahS6a3REw4qttB4',
client_secret = 'wkuDojyQGUoQDvdacQmCiHtLxMHAkYPq',
scope = 'export'
)
app.net <- Client$new(
configuration = app.net_configuration,
authorization = app.net_authorization
)
app.net$user('1')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.