apikey <- "foo"
pass <- "bar"

shop <- GET(
  url = "my-test-store.myshopify.com/orders.json",
  authenticate(user = apikey, password = pass)
)

shop <- GET(
  url = "my-test-store.myshopify.com/orders",
  authenticate(user = apikey, password = pass)
)