使用git和curl命令行

我正在尝试编写一个函数来将项目推送到github,而不是先在云中创build项目。 目前,您可以使用RStudio中的git命令行使用此问题的信息来完成此操作 。

现在我试图把它包装到一个函数中,我可以使用system从本地仓库创build云中的仓库。 我正在通过这个在Windows和Linux机器上工作(所以不知道这如何在Mac上工作)。 这是我的代码到目前为止(检测混帐位置):

 gitpath <- NULL repo <- "New" user <- "CantPostThat" password <- "blargcats" if (Sys.info()["sysname"] != "Windows") { gitpath <- "git" } else { if (is.null(gitpath)){ test <- c(file.exists("C:\\Program Files (x86)\\Git\\bin\\git.exe"), file.exists("C:\\Program Files\\Git\\bin\\git.exe")) if (sum(test) == 0) { stop("Git not found. Supply path to 'gitpath'") } gitpath <- c("\"C:\\Program Files (x86)\\Git\\bin\\git\"", "\"C:\\Program Files\\Git\\bin\\git\"")[test][1] } } 

然后我试着用system

 system(paste(gitpath, "--version")) > system(paste(gitpath, "--version")) git version 1.7.11.msysgit.1 

看起来不错。 但是,我尝试一个真正的代码块:

 cmd1 <- paste(gitpath, paste0("curl -u '", user, ":", password, "' https://api.github.com/user/repos -d '{\"name\":\"", repo, "\"}'")) system(cmd1) 

并得到消息:

 > system(cmd1) git: 'curl' is not a git command. See 'git --help'. Did you mean this? pull Warning message: running command '"C:\Program Files (x86)\Git\bin\git" curl -u ' trinker : PASSWORD ' https://api.github.com/user/repos -d '{"name":" three "}'' had status 1 

我怎样才能运行这个命令:

curl -u 'USER:PASS' https://api.github.com/user/repos -d '{"name":"REPO"}'

我也尝试运行,而不是先把git放在前面。 我目前正在赢得7台机器

Solutions Collecting From Web of "使用git和curl命令行"

在我看来,它看起来像你试图运行curl作为一个git命令system("git curl") ,这显然是行不通的。 我想你需要在Windows上找到curl二进制文件的安装路径,类似于上面对Git可执行文件所做的操作。 在Mac OS X上,您可以像这样运行您的命令…

 system("curl -u \'USER:PASS\' https://api.github.com/user/repos -d \'{\"name\":\"REPO\"}\'") 

记住要避免字符串中多余的引号。

我想你甚至可以下载编译后的curl二进制文件并从下载位置运行它? 我没有访问我的Win7框在工作测试这从复制和粘贴运行,但你得到的想法…

 url <- "http://curl.askapache.com/download/curl-7.23.1-win64-ssl-sspi.zip" tmp <- tempfile( fileext = ".zip" ) download.file(url,tmp) unzip(tmp) system( paste0( tempdir(),"/curl", " -u \'USER:PASS\' https://api.github.com/user/repos -d \'{\"name\":\"REPO\"}\'") )