Skip to content

Instantly share code, notes, and snippets.

View Chris-Engelhardt's full-sized avatar

Chris Engelhardt Chris-Engelhardt

View GitHub Profile
@Chris-Engelhardt
Chris-Engelhardt / gist:8618c2aef37dfe2b7278c8936db89b0d
Created May 3, 2019 16:00
Set the stage to make a GitHub PR for Windows users
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"),