Set the stage to make a GitHub PR for Windows users

gistfile1.txt

library(git2r)
library(glue)
library(usethis)

prep_for_pr <- function(username, repo_spec){

use_git_protocol("ssh")
  
creds <- cred_ssh_key(publickey = glue("C:/Users/{username}/.ssh/id_rsa.pub"),
                      privatekey = glue("C:/Users/{username}/.ssh/id_rsa"), 
                      passphrase = character(0))    

use_git_credentials(credentials = creds)

create_from_github(glue("{repo_spec}", 
                   destdir = "C:/Users/{username}/Desktop"))
} 

prep_for_pr("chrisengelhardt", "r-lib/usethis")