Example document showcasing a bug with inappropriate insertion of wheel event listener by rstudio in rmarkdown inline view / notebook

event_listener_bug_example.Rmd

---
title: "event listener bug"
author: "Alicia Schep"
date: "April 11, 2018"
output: html_document
---

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

## Example of inappropriate wheel event listener insertion by rstudio in rmarkdown inline view

```{r}
library(htmltools)
```

```{r}
download.file("https://cdn.jsdelivr.net/npm/[email protected]/build/vega-embed.js",
              "vega-embed.js")
```

```{r}
ve_dep <- htmlDependency("vega-embed", "3.1.1", 
                         src = getwd(),
                         script = "vega-embed.js")
```

If you look at the console, there is an error "SyntaxError: Expected an identifier but found 'text' instead".  When you look at the line of code that generates that error, it appears that the wheel event listener has been inserted into the vega-embed.js source.  

```{r}
tagList(ve_dep,tags$h3("check console"))
```