ggPlot works ggPlotly Problem: stat_smooth()

Hallo,

stat_smooth() < error comes only with this command, plot works without stat_smooth

With ggplotly it will not work, but with ggplot it works… why? (i have exluded the slider same problem)

>

Works:

output$plot <- renderPlotly({

      p <-ggplot(subset(Test...) + geom_point(aes(colour = Device), size=4)
      print (p)
      ggplotly()

   }) 

works not:

output$plot <- renderPlotly({

      p <-ggplot(subset(Test...) + geom_point(aes(colour = Device), size=4) + stat_smooth()
      print (p)
      ggplotly()

   })