在Shiny中使用fluidRow()时,通常可以使用hr()在UI元素下创建水平规则,但不能在文本下的sideBarPanel()中执行.我如何制作横向规则或类似的其他内容来划分侧边栏中的文本和UI元素？
解决方法
通常,线条是可见的,但与背景的对比度非常低.
要使该行更加可见,您可以通过在ui部分中包含以下内容来修改CSS代码：
要使该行更加可见,您可以通过在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)
