最大化R闪亮应用的窗口时，绘制出的图未显示所有数据

Question

我正在尝试将R与闪亮的应用程序结合使用，但是当我最大化后者的窗口时，该绘图似乎会丢失一些数据。 举一个具体的例子，我尝试了这段代码：

library(shiny)
library(plotly)

ui <- fluidPage(
plotlyOutput("plot"),
verbatimTextOutput("event")
)

server <- function(input, output) {

# renderPlotly() also understands ggplot2 objects!
output$plot <- renderPlotly({
plot_ly(mtcars, x = ~mpg, y = ~wt)
})

output$event <- renderPrint({
d <- event_data("plotly_hover")
if (is.null(d)) "Hover on a point!" else d
})
}

shinyApp(ui, server)

因此，当我运行此应用程序时，正常大小的窗口显示的是：

当我最大化窗口时，我得到：

有人知道如何解决吗？