r - 如何在使用 div 和 span 时在 r Shiny 的 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 的样式参数中使用 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) {
  
})