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

Bắt đầu bằng cách tái hiện ví dụ ggfan được cung cấp với test.csv được liên kết và kiểm tra cảnh báo geom2trace.default cho GeomIntervalPoly. Xác định nơi plotly.R xử lý các ggplot geom và geom ggfan nên tạo ra đầu ra nào. Hoàn thành khi ggplotly(p) hỗ trợ geom_fan mà không có cảnh báo về geom chưa được triển khai.