handle aes( ... = NULL) appropriately

ggplotly does not accept aesthetics with NULL assignment.
Use case in a programmatic big app I have a code that assigns aesthetics globally then turn off the aesthetics for some layers.
There are some workarounds but my issue I am filing in here is to handle correctly the aes ( ... = NULL)

require(ggplot2)
require(plotly)

plottest<- ggplot(mtcars,aes(mpg,disp))+
  aes(group=cyl)+
  geom_line()+
  geom_smooth(aes(group=NULL))

ggplotly(plottest)

plotfixed<- ggplot(mtcars,aes(mpg,disp))+
  geom_line(aes(group=cyl) )+
  geom_smooth()

ggplotly(plotfixed)

まず、提供されている R の例を ggplot2 と plotly で実行し、グローバルなグループ aesthetic と aes(group=NULL) を使用する layer を比較します。ggplotly がその layer をどのように処理するかを追跡し、NULL の代入によって継承された aesthetic が無効になり、変換が壊れないことを確認します。