GGfan support

Please briefly describe your problem and what output you expect. If you have a question, please don't use this form, but instead ask on the community forum http://community.plot.ly/c/api/r or stackoverflow http://stackoverflow.com.

Please include a minimal reprex. The goal of a reprex is to make it as easy as possible for me to recreate your problem so that I can fix it. If you've never heard of a reprex before, start by reading https://github.com/tidyverse/reprex#readme, and follow the advice further down the page. Do NOT include session info unless it's explicitly asked for, or you've used reprex::reprex(..., si = TRUE) to hide it away.

Delete these instructions once you have read them.

Brief description of the problem

Hi, please could I request plotly support for the ggfan package.

I'm trying to build a plotly with ggfan and i get the following error:
Warning in geom2trace.default(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]]) :
geom_GeomIntervalPoly() has yet to be implemented in plotly.
If you'd like to see this geom implemented,
Please open an issue with your example code at
https://github.com/ropensci/plotly/issues

insert reprex here

library(shiny)
library(shinytableau)
library(promises)
library(shinyvalidate)
library(ggplot2)
library(ggfan)
library(plotly)

p<- ggplot(test, aes(x=tick, y=value))+
geom_fan(intervals = c(0.2,0.5, 0.8, 0.95))+
scale_fill_steps(low = "#EF4A81",
high = "#fcdbe6",
guide = "colourbar",
aesthetics = "fill")

ggplotly(p)

test.csv

まず、リンクされた test.csv を使って提供された ggfan の例を再現し、GeomIntervalPoly に対する geom2trace.default の警告を調べます。plotly.R のどこで ggplot の geoms が処理されているか、また ggfan geom がどのような出力を生成すべきかを特定します。ggplotly(p) が未実装の geom に関する警告なしで geom_fan をサポートすれば完了です。