pheatmap() not implemented

```

library(plotly)
library(ggplot2)
library(pheatmap)

dat <- matrix(rnorm(100, 3, 1), ncol=10)
names(dat) <- paste("X", 1:10)

p <- pheatmap(dat, display_numbers = T)

ggplotly(p)
```

yields the following error:

```
Error in UseMethod("ggplotly", p) : 
  no applicable method for 'ggplotly' applied to an object of class "pheatmap"
```