add gh api auth function

[meerapatelmd]

https://docs.github.com/articles/creating-a-personal-access-token-for-the-command-line

auth_gh_api <- 
        function(github_user,
                 github_pw) {
                
                resp <- system(sprintf('curl -u "%s:%s" https://api.github.com', github_user, github_pw),
                       intern = TRUE)
                
                parsed <- jsonlite::fromJSON(txt = resp)
                
        }