如何在使用 div 和 span 時在閃亮的 titlePanel 中添加額外的間距？

Question

這似乎是一個非常直接的問題，但我似乎無法在標題面板中的文本之前創建額外的空間。 困擾我的是文本離左邊緣太近了。 我不想讓文本居中，我只想讓它稍微向內移動。

我嘗試使用 R 中的 tab 命令

\t

並手動添加非中斷空間

 

這是我的 titlePanel 代碼：

ui <- fluidPage(

shinyjs::useShinyjs(),
titlePanel(div(span("Title", style = "color:red"),
               style={'background-color:black;'},
               br(),
               span(em(h3("Subtitle")), style = "color:red"),
               
               img(height = 100, width = 200, src = "...")),
           
),  
           
mainPanel()
           
)

Answer 1

我們可以在div的 style 參數中使用padding-left ：

shinyApp(ui = fluidPage(
  
  shinyjs::useShinyjs(),
  titlePanel(div(span("Title", style = "color:red"),
                 style={'background-color:black; padding-left: 15px'},
                 br(),
                 span(em(h3("Subtitle")), style = "color:red"),
                 
                 img(height = 100, width = 200, src = "...")),
             
  ),  
  
  mainPanel()
  
), server = function(input, output) {
  
})