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)
相关文章
相关标签/搜索