Altair in Rmd

altair_test.Rmd

---
title: "rmd altair"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

library(reticulate)

reticulate::use_condaenv()
reticulate::py_config()
```

```{python}
import altair as alt
from vega_datasets import data

chart = alt.Chart(data.cars.url).mark_point().encode(
    x='Horsepower:Q',
    y='Miles_per_Gallon:Q',
    color='Origin:N'
)
```

```{python}
type(chart)
```

```{python}
chart.save('chart.html')
```

<iframe src="chart.html"></iframe>

```{r}
htmltools::includeHTML("chart.html")
```