Include sparkline about formattable HOT 7 OPEN

#devtools::install_github("timelyportfolio/sparkline@update/sparkline")
library(sparkline)
library(formattable)
library(dplyr)

iris %>%
  group_by(Species) %>%
  summarize_all(list) %>%
  formattable(
    formatters = list(
      area(col=2:5) ~ function(x){
        lapply(x,function(xx){
          as.character(as.tags(
            sparkline(xx,type="box",chartRangeMin=0,chartRangeMax=max(unlist((x))))
          ))
        })
      }
    ),
    table.attr="class='table table-condensed table-striped'"
  ) %>%
  formattable:::as.htmlwidget() %>%
  htmlwidgets:::as.tags.htmlwidget() %>%
  tagList() %>%
  attachDependencies(
    htmlwidgets:::widget_dependencies("sparkline","sparkline")
  ) %>%
  browsable()

sparkline(1:10,type="box")

---
title: "jquery Sparkline htmlwidget in formattable"
author: "Kent Russell"
date: "June 10, 2015"
output: html_document
---

```{r results = 'asis'}
library(formattable)
library(sparkline)

set.seed(1234)
x = rnorm(10)
y = rnorm(10)

df = data.frame(id=c("x","y"),"sparkline"=NA, "sparkbox" = NA)

formattable(
  df,
  list(
    "sparkline"=function(z){
      sapply(
        paste0(text='`r sparkline(',df$id,')`')
        ,function(md) knitr::knit(text=md, quiet=T)
      )
    }
    ,sparkbox =function(z){
      sapply(
        paste0(text='`r sparkline(',df$id,',type="box")`')
        ,function(md) knitr::knit(text=md, quiet=T)
      )
    }
  )
)
    ```

library(formattable)
library(sparkline)
library(dplyr)

# So lets say I have this data frame and I now want to show the Names
# and a Sparkline
df <- data.frame(Name = LETTERS[1:5], Name2 = letters[5:1], 
                 RankMonth1 = sample(5), RankMonth2 = sample(5),
                 RankMonth3 = sample(5), RankMonth4 = sample(5), 
                 RankMonth5 = sample(5))

A <- as.numeric(df[1,3:7])
B <- as.numeric(df[2, 3:7])
C <- as.numeric(df[3, 3:7])
D <- as.numeric(df[4, 3:7])
E <- as.numeric(df[5, 3:7])

df2 <- data.frame(Name = df$Name, Name2 = df$Name2,
                  Rank = NA)

formattable(
  df2,
  list(
    "Rank"=function(z){
      sapply(
        paste0(text='`r sparkline(', df$Name, ')`')
        ,function(md) knitr::knit(text=md, quiet=T)
      )
    }
  )
)