plot1-1.png

plot2-1.png

test.Rmd

---
title: "test"
author: "yutannihilation"
date: "2017年2月14日"
output:
  html_document:
    self_contained: false
---

```{r test, results='hide'}
# Gistをつくる
g <- gistr::gist_create(code = "dummy", filename = "dummy", browse = FALSE)
g$delete_files <- list("dummy")
g <- gistr::update(g)

# HTTP APIではバイナリファイルをアップロードできないのでgitプロトコルを使う
repo <- git2r::clone(g$git_pull_url, local_path = tempfile("gist"))

gist_upload <- function(file) {
  # ファイルをコピーしてコミットするだけ
  file.copy(file, to = repo@path)
  git2r::add(repo, basename(file))
  git2r::commit(repo, basename(file))
  git2r::push(repo, credentials = git2r::cred_env("GITHUB_USERNAME", "GITHUB_PAT"))
  
  basename(file)
}

knitr::opts_knit$set(upload.fun = gist_upload,
                     base.url = sprintf("https://gist.githubusercontent.com/%s/%s/raw/", g$owner$login, g$id))
```

```{r plot1}
plot(iris)
```

```{r plot2}
plot(mtcars)
```