remote_sha.github_remote does not honour remote credentials

Calling `remote_sha` with a github remote pointing to a private repository returns `NA`.

```R
withr::with_envvar(c(GITHUB_PAT = "xxxxx"),  {
devtools:::remote_sha(devtools:::github_remote("private/repo"))
})
```