check_remote.R

library(remotes)

pkg <- "electricShine"
repo <- "chasemc/electricShine"

remote <- lapply(repo, remotes:::github_remote, ref = "master", subdir = NULL, 
       auth_token =  remotes:::github_pat(quiet), host = "api.github.com")
remote_sha <- remotes:::remote_sha(remote[[1]],
                                   remotes:::local_sha(pkg))
local_sha <-  remotes:::local_sha(pkg)
remotes:::different_sha(remote_sha = remote_sha, local_sha = local_sha)