```{r eval=FALSE}
devtools::install_github("ropensci/gistr")
library(gistr)
# まず認証が必要
gist_auth()
# あとは
file <- system.file("examples", "stuff.Rmd", package = "gistr")
gist_create(file, description='a new cool gist', knit=TRUE)
```