legend is cut on scatter plot plotly / ggplot2 / shiny

[poijqwef]

The legend is cut when plotly is applied to ggplot2 within shiny.
Any suggestion?

Here is the code I am using:

server:

output$timeSeries <- renderPlotly({ df <- timeSeriesPriceData() gplot <- ggplot() + geom_line(data=df,aes(x=datetime,y=price,colour="price")) + scale_colour_manual(values=c("blue")) + theme(legend.position="left") g <- ggplotly(p=gplot,showlegend=TRUE) })
ui:

plotlyOutput("timeSeries"),

[karthikg0703]

Is this fixed ? I'm still facing the same issue (I have plotly 3.6.0)