RMarkdown de PythonInR

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)

c2s = function(before, options, envir) {
  if (before) {
  } else {
    print(options)
    assign(options$label, paste0(options$code, collapse="\n"), envir)
  }
}
knit_hooks$set(py = c2s)
```

```{r}
library(PythonInR)
```


パイソンチャンク

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

使ってみる

```{r}
pyExec(py1)
pyGet("a")
pyGet("b")
```