r - Shiny - 如何在 flowLayout 中添加垂直/水平分隔线

Question

flowLayout我想在 Shiny 应用程序的元素之间添加水平和/或垂直规则（取决于窗口的宽度） 。

如果元素是水平堆叠的，我想用垂直规则将它们分开。如果窗口不够宽，有些元素是垂直堆叠的，我想用水平规则将它们分开。

在这个小例子中，我想verticalLayout用规则将不同的部分分开，但我不知道（取决于窗口的宽度）它们是否会水平或垂直堆叠在flowLayout.

# ui.R
ui <- fluidPage(
    flowLayout(
        verticalLayout(
            numericInput("num1", label = "Number1", value = 0),
            numericInput("num2", label = "Number2", value = 0)
        ),
        verticalLayout(
            numericInput("num3", label = "Number3", value = 0),
            numericInput("num4", label = "Number4", value = 0)
        ),
        verticalLayout(
            numericInput("num5", label = "Number5", value = 0),
            numericInput("num6", label = "Number6", value = 0)
        ),
        verticalLayout(
            numericInput("num7", label = "Number7", value = 0),
            numericInput("num8", label = "Number8", value = 0)
        )
    )
)

提前致谢

标签： rshiny