r - R を使用した Uber API

Question

R を使用して Uber API のデータにアクセスしようとしています。Uber の API でアカウントを作成したところ、次の情報が割り当てられました。

アプリの名前 (これを作成しました。) クライアント ID サーバー トークン シークレット

通常のアカウントのユーザー名とパスワードも持っていますが、API の使用にこれが必要だとは思いませんでした。正しい引数に正しい情報を使用しているかどうか確信が持てません。

myapp=oauth_app("nameofmyapp",
            key="client id",
            secret="secret"
            )
sig=sign_oauth1.0(myapp,
              token="server token",
              token_secret="secret"
              )

homeTL=GET("https://api.uber.com/v1/products",
  sig
  )
homeTL
json1=content(homeTL)
json1

json1 (最後の行) の内容を確認すると、接続が認証されていないように見えます。私は得る

message
[1] "No authentication provided."

$code
[1] "unauthorized"

どんな助けでも大歓迎です。ありがとう。