css – R Shiny Sidebar中的水平规则hr()

在Shiny中使用fluidRow()时,通常可以使用hr()在UI元素下创建水平规则,但不能在文本下的sideBarPanel()中执行.我如何制作横向规则或类似的其他内容来划分侧边栏中的文本和UI元素？

解决方法

通常,线条是可见的,但与背景的对比度非常低.
要使该行更加可见,您可以通过在ui部分中包含以下内容来修改CSS代码：

tags$head(
    tags$style(HTML("hr {border-top: 1px solid #000000;}"))
  ),

使用标签$style(HTML(…)),您可以在应用中包含CSS.该行的html标记是hr.其余参数表示行选择,宽度,颜色等的规格.

有关完整的工作示例,请参见下文：

library(shiny)

ui <- fluidPage(
  tags$head(
    tags$style(HTML("hr {border-top: 1px solid #000000;}"))
  ),sidebarLayout(
      sidebarPanel(
         "text",hr(),uIoUtput("out")
      ),mainPanel(
         plotOutput("distPlot")
      )
   )
)

server <- function(input,output) {
  output$out <- renderUI({
    sliderInput("bins","Number of bins:",min = 1,max = 50,value = 30)
  })
}


shinyApp(ui = ui,server = server)