scope argument for pat_sitrep()?

[ijlyttle]

In git_sitrep(), pat_sitrep() is called for both "user" and "project" scopes. Regardless of scope, it consults the "de_facto" git email:

usethis/R/github_token.R

Line 182 in 8104204

de_facto_email <- git_cfg_get("user.email", "de_facto")

If reporting for the "user" scope, I think it should consult the "global" email address.

I think this could be addressed by adding a scope argument to pat_sitrep(); happy to offer a PR.

[jennybc]

Sure, sounds good.

[ijlyttle]

this is a duplicate of #1722