Question

假设我有以下Shiny ui代码：

fluidRow(
  column(
    width=4
  ),

  column(
    width=8
  )
)

如何绘制第一列的右边框？

Answer 1

您可以使用style参数将CSS添加到列中。所以这样做的一种方法是：

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(style='border-right: 1px solid red',
      width=4,
      p('Hello')
    ),

    column(
      width=8,
      p('World')
    )
  )
)

server <- function(input,output) {}

shinyApp(ui,server)

希望这有帮助！

Answer 2

另一种解决方法是在对象（在本例中为列）之外创建html样式，并为该列分配一个css类。通过以这种方式创建样式，您可以将样式更有效地应用于另一列。

library(shiny)

ui <- fluidPage(
tags$head(
tags$style(HTML("
  
  .column_w_bar {
      border-right-color: #eb4034;
      border-right-width: 1px;
      border-right-style: solid;
}
") # end HTML
) # end tags$style
) # end tags$head

fluidRow(
  column(class = 'column_w_bar',
      width=4
  ),

  column(
      width=8
  )
 ) # end fluidRow
) # end FluidPage

在此示例中，它在使用tags$head()和tags$style()的R代码中。
您还可以在闪亮项目的“ www”文件夹中的单独的.css文件中创建样式。

闪亮 - 绘制右边框的列

2 个答案: