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)

まず、Windows 7 上で、提供された data frame、ggplot2 の折れ線グラフ、ggplotly() を使って報告された動作を再現します。ウィンドウを最大化する前後でプロットを比較し、続いて両方の状態でプロット全体が表示されたままであることを確認します。issue にはスクリーンショットはありますが、ソースファイルやテストの場所はありません。