personalizeruntime(config = list())

svc <- personalizeruntime(
  config = list(
    credentials = list(
      creds = list(
        access_key_id = "string",
        secret_access_key = "string",
        session_token = "string"
      ),
      profile = "string"
    ),
    endpoint = "string",
    region = "string"
  )
)

## Not run: 
svc <- personalizeruntime()
svc$get_personalized_ranking(
  Foo = 123
)

## End(Not run)