r - Rマークダウンフレックスダッシュボードダイグラフの高さと幅

Question

まずはこちらの写真をご覧ください

ダイグラフの高さと幅について質問があります。Flexdashboard は正常に実行されましたが、グラフがカットされています。グラフを適切に形成するにはどうすればよいですか。
以下は私のフライドダッシュボードコードです。

checkboxGroupInput("type", "Choose company", 
                       choices = names(stat_xts)[-1])
renderDygraph({
    req(input$type)     
        stat_xts1 <- stat_xts[, c("year", input$type)]
           dygraph(stat_xts1, main = "EP statistics",xlab = "time") %>%
      dyHighlight(highlightCircleSize = 4,hideOnMouseOut = T,
                  highlightSeriesBackgroundAlpha = 0.5,
                  highlightSeriesOpts = list(strokeWidth = 4)) %>%
      dyOptions(drawPoints = TRUE, pointSize = 2, fillGraph = TRUE, fillAlpha = 0.2, maxNumberWidth = 12, colors = RColorBrewer::brewer.pal(7, "Dark2")) %>%
      dyRangeSelector(height = 30, strokeColor = "teel") %>%
      dyLegend(show = "onmouseover", width = 500)
  })

どうもありがとう。スタックオーバーフローは素晴らしいです。