Seamless Python In RMarkdown

pynR.Rmd

---
title: "RMarkdownでPythonInR"
author: '@kohske'
date: "2015年10月10日"
output: html_document
---

参考 https://speakerdeck.com/yamano357/tokyor51-lt


フック

```{r include=FALSE}
library(knitr)
library(PythonInR)

c2s = function(before, options, envir) {
  if (before) {
  } else {
    v=pyExecg(paste0(options$code, collapse="\n"))
    for (n in names(v)) assign(n, v[[n]], envir)
  }
}
knit_hooks$set(py = c2s)
```

パイソンチャンク

```{r, eval=FALSE, py=TRUE, include=FALSE}
a=range(0, 3)
b=range(0, 5)
```

使ってみる

```{r}
a
b
expand.grid(a, b)
```