在闪亮的流体行中水平居中图像

Question

是否可以在闪亮的 ui 流体页面中将三张图像放在一行中并将每张图像的宽度固定为 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)