Eu estou tentando escrever uma função para empurrar um projeto para o github sem primeiro criar o projeto nas nuvens. Atualmente você pode fazer isso a partir da linha de comando do Git no RStudio usando as informações deessa questão.

Agora eu estou tentando envolvê-lo em uma função que eu possa usarsystem para criar o repositório nas nuvens a partir de um repositório local. Eu estou trabalhando com isso em uma máquina Windows e Linux (por isso não tenho certeza quão bem isso funciona no mac ainda). Aqui está meu código até agora (detectar localização do git):

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]
    }
}

Eu então tentei comsystem:

system(paste(gitpath, "--version"))

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

Parece bom. Mas então eu tento em um pedaço de código real:

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

system(cmd1)

E receba a mensagem:

> 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 

Como posso executar este comando:

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

Eu também tentei correr sem colocar git na frente primeiro. Atualmente estou em uma máquina com 7 vitórias