Weirdness in RMarkdown/Shiny

rmdweirdness.Rmd

---
title: "Testing1"
author: "JCW"
date: "November 19, 2015"
output: 
  html_document: 
    highlight: haddock
    theme: cosmo

---


```{r}
library(DT)
```

### BC 1192  
```{r, echo=TRUE}
datatable(bc1192) %>% 
    formatPercentage(6:7, digits = 2) %>% 
    formatCurrency(3:4)
    
```

In this Rmd, bc1192 is a dataframe in my environment list in RStudio.
If I put a bc1192 <- read.csv("bc1192.csv", stringsAsFactors = FALSE) in and read it in again from the Rmd, it works.