我曾经问过一个很similar question并从命令行得到了一个有效的响应，但我现在想使用 R 来自动化 Windows 中的过程(Linux 更容易)。

这是我正在尝试做的事情:

1. 创建一个本地目录(或者它已经存在)
2. 在云中生成一个与本地同名的新 github 存储库 (based on this answer)
3. 将 .git 添加到本地仓库
4. 进行初始提交
5. 在云存储库和本地存储库之间建立链接
6. 将提交和本地仓库中的文件推送到github

我相信based on the output在我失败之前我一直走到第 5 步(因为本地目录中的提交和文件永远不会转到云中的 github)。我知道第 2 步有效，因为创建了空 repo here .我不知道如何测试第 5 步。在最后一步 shell(cmd6, intern = T) RGui 和 RStudio 导致永恒的死亡螺旋。问题是:如何将提交和本地存储库推送到云端。

这是我更新后的代码(唯一特定于用户的是第三个代码块中的用户名和密码):

## Create Directory
repo <- "foo5"
dir.create(repo)
project.dir <- file.path(getwd(), repo) 

## Throw a READ.ME in the directory
cat("This is a test", file=file.path(project.dir, "READ.ME"))

## Github info (this will change per user)
password <-"pass" 
github.user <- "trinker"  

## Get git location
test <- c(file.exists("C:/Program Files (x86)/Git/bin/git.exe"),
    file.exists("C:/Program Files/Git/bin/git.exe"))
gitpath <- c("C:/Program Files (x86)/Git/bin/git.exe",
  "C:/Program Files/Git/bin/git.exe")[test][1]

## download curl and set up github api
wincurl <- "http://curl.askapache.com/download/curl-7.32.0-win64-ssl-sspi.zip"
url <- wincurl
tmp <- tempfile( fileext = ".zip" )
download.file(url,tmp)
unzip(tmp, exdir = tempdir())       
shell(paste0(tempdir(), "/curl http://curl.haxx.se/ca/cacert.pem -o " , 
    tempdir() , "/curl-ca-bundle.crt"))
json <- paste0(" { \"name\":\"" , repo , "\" } ") #string we desire formatting
json <- shQuote(json , type = "cmd" )
cmd1 <- paste0( tempdir() ,"/curl -i -u \"" , github.user , ":" , password , 
    "\" https://api.github.com/user/repos -d " , json )

shell(cmd1, intern = T)

## Change working directory
wd <- getwd()
setwd(project.dir)

## set up the .git directory
cmd2 <- paste0(shQuote(gitpath), " init")
shell(cmd2, intern = T)

## add all the contents of the directory for tracking
cmd3 <- paste0(shQuote(gitpath), " add .")  
shell(cmd3, intern = T)       

cmdStat <- paste0(shQuote(gitpath), " status")  
shell(cmdStat, intern = T)

## Set email (may not be needed)
Trim <- function (x) gsub("^\\s+|\\s+$", "", x) #remove trailing/leading white 

x <- file.path(path.expand("~"), ".gitconfig")
if (file.exists(x)) {
    y <- readLines(x)
    email <- Trim(unlist(strsplit(y[grepl("email = ", y)], "email ="))[2])
} else {
    z <- file.path(Sys.getenv("HOME"), ".gitconfig")
    if (file.exists(z)) {
        email <- Trim(unlist(strsplit(y[grepl("email = ", y)], "email ="))[2])
    } else {
        warning(paste("Set `email` in", x))
    }
}
cmdEM <- paste0(shQuote(gitpath), sprintf(" config --global user.email %s", email))        
system(cmdEM, intern = T)

## Initial commit
cmd4 <- paste0(shQuote(gitpath), ' commit -m "Initial commit"')  
system(cmd4, intern = T) 

## establish connection between local and remote
cmd5 <- paste0(shQuote(gitpath), " remote add origin https://github.com/",
    github.user, "/", repo, ".git")  
shell(cmd5, intern = T) 

## push local to remote 
cmd6 <- paste0(shQuote(gitpath), " push -u origin master")  
shell(cmd6, intern = T) 

setwd(wd)

我知道脚本有点长，但是重现问题和重现问题都是必要的:

注意 我根据 Simon 的回答更新了问题，因为他是正确的并且更接近推送。原题内容可以查here .

最佳答案

如果使用 https 地址，请确保:

• 定义了环境变量%HOME%
• 其中有一个 _netrc 文件，其中包含正确的凭据以推送回您的存储库

该文件应包含:

machine github.com
login username
password xxxx
protocol https

即使你有 activated the recent two-factor authentication on GitHub 也行得通.

那么你的推送不会超时:

cmd6 <- paste0(shQuote(gitpath), " push -u origin master")  
shell(cmd6, intern = T) 

这比 setting public/private ssh keys 更容易.

作为OP Tyler Rinker commented ，设置 %HOME% 在我的另一个答案“Git - How to use .netrc file on windows to save user and password”中有说明。
这通常由 git-cmd.bat 完成:

if not exist "%HOME%" @set HOME=%HOMEDRIVE%%HOMEPATH%
@if not exist "%HOME%" @set HOME=%USERPROFILE%

但您也可以手动完成。

关于windows - 在 Windows 上使用 R 将本地仓库推送到 github，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/18648737/