Я пытаюсь написать функцию для отправки проекта в GitHub без предварительного создания проекта в облаках. В настоящее время вы можете сделать это из командной строки git в RStudio, используя информацию изэтот вопрос.

Теперь я пытаюсь обернуть это в функцию, которую я могу использоватьsystem создать репо в облаках из локального репо. Я работаю над этим на компьютере с Windows и Linux (так что пока не уверен, насколько хорошо это работает на Mac). Вот мой код (определить местоположение 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]
    }
}

Я тогда попробую это с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 машин