Problem Pandoc / Mermaid

example.rmd

---
title: "Untitled"
author: "cg"
date: "Monday, October 19, 2015"
output: html_document
---



```{r}
library(DiagrammeR)
s <- "graph LR
a[$960k] --> |Sign with TV Network| b(($900k))
a[$960k] --> |Sign with Movie Company| f(($960k))
b --> |Large Box Office: 0.1| c[$900k]
b --> |Medium Box Office: 0.6| d[$900k]
b --> |Small Box Office: 0.3| e[$900k]
f --> |Large Box Office: 0.1| g[$3000k]
f --> |Medium Box Office: 0.6| h[$1000k]
f --> |Small Box Office: 0.3| i[$200k]
classDef default fill:none, bg:none, stroke-width:0px, font-size:10px;
classDef decision fill:#9f6,stroke:#333,stroke-width:1px;
classDef chance fill:red,stroke:#333,stroke-width:1px;
class a decision;
class b,f chance;"

DiagrammeR(s)
```