Shiny flexdashboard r中renderImage下的大空间

Question

我是 R 新手，最近开始研究一个闪亮的应用程序。虽然我已经设法解决了项目中的大部分问题，但我一直在为菜单问题苦苦挣扎一段时间。具体来说，在我想使用的两个输入上，我想绘制一个依赖于第一个输入（selectInput）的图像。我通过 renderImage 函数做到这一点，但问题是在绘制这些图像时会生成一个我无法消除的空间。我尝试过使用 renderPlot 和 renderText，但问题没有解决，或者它们没有给出预期的结果。有没有办法消除或减少这个空间？我附上了我的代码的简化版本和问题的图像。

---
title: "TEST"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
runtime: shiny
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r paquetes, include=FALSE}
{
library(data.table)
library(dplyr)
library(plyr)
library(highcharter)
library(flextable)
library(officer)
library(readxl)
library(gridExtra)
library(plotly)
library(ggrepel)
library(kableExtra)
library(knitr)
library(scales)
library(flexdashboard)
}
```

Sidebar {.sidebar data-width=300}
=====================================

<center>

```{r echo = FALSE}
renderImage({  
    filename <- paste0("images/",input$countryInput,".png")
    list(src = filename, height = 100)
})
```

</center>

```{r input01, echo=FALSE}
selectInput("countryInput", "REGIÓN",
    choices = c("NACIONAL","XV ARICA Y PARINACOTA","I TARAPACÁ","II ANTOFAGASTA",
              "III ATACAMA","IV COQUIMBO","V VALPARAÍSO","XIII METROPOLITANA",
              "VI O´HIGGINS","VII MAULE","XVI ÑUBLE","VIII BÍO BÍO",
              "IX ARAUCANÍA","XIV LOS RÍOS","X LOS LAGOS","XI AYSÉN","XII MAGALLANES"))
```

```{r input02, echo=FALSE}
dateRangeInput("dateInput", "TRIMESTRES",
  language = "es",
  format = "yyyy/mm/dd",
  min = as.Date("2018-01-01"),
  max = as.Date("2020-07-01"),
  start = as.Date("2019-07-01"),
  end = as.Date("2020-07-01"),
  separator = "hasta")
```

Página
====================================

Row
-----------------------------

###

Problem photo

这是我在论坛上的第一篇文章，感谢任何帮助，如果我忘记添加信息，我深表歉意。

Answer 1

使用imageOutput控制包含图片的div的高度：

output[["image"]] <- renderImage({  
    filename <- paste0("images/",input$countryInput,".png")
    list(src = filename, height = 100)
})
imageOutput("image", height = "100px")