默认情况下，flexdashboard使用相同的预定义大小显示所有图像。
因此，我希望能够做以下两件事：
1.能够显示图像，使其占据全部可用空间（最大化），和/或
1.能够允许用户使用闪亮的滑块交互地修改图像大小。
这可能做到吗？至少这些任务中的第一项，这似乎更容易。
下面是.Rmd的代码和它现在所做的事情的截图。你会注意到图像在底部被剪切了，我不知道如何改变它的大小。

---
title: "Resizable ggplot images in flexdashboard"
output: 
  flexdashboard::flex_dashboard:
  vertical_layout: fill 
  orientation: columns
runtime: shiny
---

 ## Left column ----

This dashboard shows how you can resize ggplot images  in 'flexdashboard'.

## Right column, where the shiny sliders and image are displayed --- 

  ```{r}
library(ggplot2)
# fluidPage(  # This does not help
  fluidRow( 
    column(width=4, checkboxInput("maximize_image", "Maximize image",  T) ),
    column(width=4, sliderInput("image_width", "Image width", 2, 6, 3) ), 
    column(width=4, sliderInput("image_height", "Image height ", 2, 9, 4) )
  )
  renderPlot( 
    ggplot(pressure) + geom_point (aes(temperature,pressure))
  )
# )

 # end of .Rmd code