Shiny 的列宽基于Bootstrap 12 宽网格系统。您只能指定整数。但是,您可以嵌套多个列以实现细粒度布局。
以下是有关嵌套列的示例:
library(shiny)
ui <- fluidPage(fluidRow(
p(),
column(4, p(), style = "background-color: red;"),
column(4, p(), style = "background-color: green;"),
column(
4,
column(4, p(), style = "background-color: red;"),
column(7, p(), style = "background-color: green;"),
column(1, p(), style = "background-color: blue;")
),
))
server <- function(input, output, session) {}
shinyApp(ui, server)
Run Code Online (Sandbox Code Playgroud)
作为替代方案,您可能需要检查?splitLayout哪个接受 CSS 单元:
library(shiny)
ui <- fluidPage(splitLayout(
p("red", style = "background-color: red;"),
p("green", style = "background-color: green;"),
p("blue", style = "background-color: blue;"),
p("yellow", style = "background-color: yellow;"),
p("orange", style = "background-color: orange;"),
cellWidths = "20%"
))
server <- function(input, output, session) {
}
shinyApp(ui, server)
Run Code Online (Sandbox Code Playgroud)