闪亮的UI - 如何使文本在点符号后的同一位置开始

Posted 2021-05-03

我的原始代码： fluidRow( h4("• xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx.")

这看起来像

•xxxxxxxxxxxxxxxxxxxxxxx

XXXXXX

如上所述，我有一个点符号，如“•”，后面有多行描述。有人可以告诉我如何使点标志后面的描述从同一个地方开始，就像它在“Microsoft Word”应用程序中表示的那样。

谢谢

答案

听起来你想要你的h4标题看起来像bulleted lists。你还想要长文本是indented the same amount as the first line。我们可以通过添加CSS来实现这一点。

试试这个：

library(shiny)
css <- html(
        "h4{
                display: list-item;
                list-style-type: disc;
                list-style-position: inside;
                text-indent: -1em;
                padding-left: 1em;}"
        )
ui <- fluidPage(
        tags$head(tags$style(css)),
        fluidPage(
                h1("Bullet h4 Headings"),
                h4("Lorem ipsum dolor sit amet, consectetur adipiscing elit, 
                   sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. 
                   Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris 
                   nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in 
                   reprehenderit in voluptate velit esse cillum dolore eu fugiat 
                   nulla pariatur. Excepteur sint occaecat cupidatat non proident, 
                   sunt in culpa qui officia deserunt mollit anim id est laborum.")
        )
)

server <- function(input, output, session){

}
shinyApp(ui = ui, server = server)