On maximize the window screen, half of plotly plot not showing in the full screen.

I am using R plotly in window-7.

let the data frame is

df<-data.frame(x=c(1:10),y=runif(10,3,8))

df
x y
1 1 6.152838
2 2 5.415271
3 3 3.265967
4 4 4.886916
5 5 4.300635
6 6 4.637657
7 7 4.534143
8 8 5.783432
9 9 6.110982
10 10 3.892279
class(df)
[1] "data.frame"
ggplot()+ geom_line(data = df, aes(x = x, y = y))
ggplotly()

Problem: on clicking the maximise the plot screen, half of the plot gets cut.
please check the image attached
```r
# insert reprex here
![without maximise the screen](https://user-images.githubusercontent.com/34315322/46241425-6aae6880-c3d7-11e8-8822-64ecbfd260cc.jpg)
![on maximise the screen](https://user-images.githubusercontent.com/34315322/46241429-7568fd80-c3d7-11e8-86be-563a26ac44b7.jpg)

Inizia riproducendo il comportamento segnalato con il data frame fornito, il grafico a linee ggplot2 e ggplotly() su Windows 7. Confronta il grafico prima e dopo l’ingrandimento della finestra, quindi verifica che il grafico completo rimanga visibile in entrambi gli stati; l’issue fornisce screenshot, ma non un file sorgente né una posizione per i test.