r - 在 Shiny 的fluidRow中水平居中图像

Question

是否可以在 Shiny 的 ui fluidPage 中将三个图像居中放在一行中，并将每个图像的宽度固定为 300 像素？获取:

我的一个想法是使用 splitLayout 并以某种方式插入图像作为窗口宽度的函数，但我不确定如何实现这一点。我知道您可以使用 splitLayout 将图像设置为窗口的百分比，但是我特别希望中间图像为 300 像素。

fluidPage(fluidRow(
    splitLayout(cellWidths = c("34%", 300, "34%"), cellArgs = list(style = "padding: 0px"), style = "border: 0px; padding: 0px;",
       div(img(src="image1", height=300, width=300, align="right"),
       div(img(src="image2", height=300, width=300, align="center"),
       div(img(src="image3", height=300, width=300, align="left")), ...

所以问题是我得到的图像偏离中心:

但是当我将中间单元格设置为 33% 时，图像之间的差距太大了。

splitLayout(cellWidths = c("34%", "33%", "34%"), cellArgs = list(style = "padding: 0px"), style = "border: 0px; padding: 0px;",
div(img(src="image1", height=300, width=300, align="right"),
div(img(src="image2", height=300, width=300, align="center"),
div(img(src="image3", height=300, width=300, align="left"))

所以我所追求的是 cellWidths = c((windowWidth-300)/2, 300, (windowWidth-300)/2) 但我不确定如何提取 windowWidth。

Answer 1

我设法使用 column 函数修复它，我只是错过了 align="center" 参数以及样式中宽度参数的删除。例如:

library(shiny)

server = function(input, output, session) {}

ui <- fluidPage(fluidRow(
         column(12, align="center",
                div(style="display: inline-block;",img(src="image1", height=300, width=300)),
                div(style="display: inline-block;",img(src="image2", height=300, width=300)),
                div(style="display: inline-block;",img(src="image3", height=300, width=300))))
)


shinyApp(ui = ui, server = server)