闪亮 - 绘制右边框的列

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)

希望这可以帮助！