Выравнивание локально сохраненных изображений в сетке

Question

У меня проблемы с разделением изображений на отдельные столбцы в пользовательском интерфейсе.Я думаю, это потому, что я загружаю переменную, которая содержит список изображений, поэтому я не могу разбить изображения на разные столбцы и строки.Вот мой код, и я также приложил несколько картинок, которые вы можете загрузить и попробовать: https://drive.google.com/open?id=14w2WF9pyEsxL9fJ1jFOhw7PzmUV_g4fS

library(shiny)
library(shinyWidgets)
library(gridExtra)
library(ggplot2)

ui <- fluidPage(
  titlePanel("Compare"),
  sidebarLayout(
    sidebarPanel(
      pickerInput(inputId = "countyInput", label = "Select which counties to filter by",
                  choices = c("County1", "County2", "County3", "County4", "County5"),
                  options = list(`actions-box` = TRUE,size = 10, `selected-text-format` = "count > 9"),
                  multiple = TRUE),
      checkboxGroupInput(inputId = "causeInput", label = "Select which causes to filter by",
                         choices = c("reason1", "reason2", "reason3", "reason4"))
    ),
    mainPanel(
      uiOutput("images")
    )
  )
)



server <- function(input, output, session) {

  file_name <- reactive({
    req(input$countyInput)
    req(input$causeInput)
    paste0(unlist(lapply(input$countyInput, function(i) {
      paste0(i, input$causeInput)
    })), ".png")
  })

  output$images <- renderUI({
    tagList(
      lapply(file_name(), function(file) {
        filename <- file.path("PATH TO PICTURES", file)
        if (file.exists(filename)) {
          output[[paste("img", file, sep = "")]] <- renderImage({
            list(src = filename,
                 alt = paste("Image name", file),
                 width = "806",
                 height = "403")
          }, deleteFile = FALSE)}
      })
    )
  })
}

shinyApp(ui, server)

В настоящее время все загружается в один столбец, но я хочу, чтобы в нем было несколько столбцов на основеколичество загруженных изображений, но не более 2 строк (в каждом столбце будет максимум 2 изображения), пока не будет достигнуто максимальное количество столбцов, тогда может быть строка 3. Спасибо за вашу помощь.