R/gitUpdateAutoJW.R

In sbalci/AutoJournalWatch: Auto Journal Watch.

CommitMessage <-
    paste("Automatically updated via cron at: ", Sys.time(), sep = "")

wd            <- "~/AutoJournalWatch/"

setorigin     <-
    "git remote set-url origin git@github.com:sbalci/AutoJournalWatch.git \n"

gitCommand    <-
    paste(
        "cd ",
        wd,
        " \n git add . \n git commit --message '",
        CommitMessage,
        "' \n",
        setorigin,
        "git push origin master \n",
        sep = ""
    )

system(
    command = paste(gitCommand, "\n") ,
    intern = TRUE,
    wait = TRUE
)

Sys.sleep(5)