r shiny Add multiple spaces before the string

[XUXUXU]

Add multiple spaces before the string.

How can I add multiple spaces(" ") before a string?

h3(), span(), strong(), p(), box()........etc.

I searched but couldn't find the answer.
The string seems to automatically remove spaces.

here is code：

library(shiny)
library(shinydashboard)
library(shinyWidgets)

ui <- fluidPage(
            useShinydashboard(),
  
  fluidRow(style="background:#FFEFD5",
           br(),
           column(12,box(width = 8, 
                         style = "font-size: 20px;background:#FFF5EE;color:#000000; text-align: left;",
                         title = "about", status = "danger", solidHeader = TRUE,collapsible = TRUE,"               abcdefghijklmnopqrstuvwxyz.
                                  abcdefghijklmnopqrstuvwxyz."))
  ),
  uiOutput("description_2"),
  fluidRow(style="background:#FFEFD5",
           column(12,box("Add multiple spaces before the string."))
  )

)


server <- function(input, output) {
}


shinyApp(ui, server)

here is output：

here is output what I want：

thanks for your help!
I find all the morning..........T T

[craig.parylo]

Hi @XUXUXU ,

You can insert spaces or tabbed spaces using the elements ' ' or ' ' and wrapping the strings as HTML types.

library(shiny)
library(shinydashboard)
library(shinyWidgets)

# format strings as HTML and add paste in either:
# ' ' for one space
# ' ' for 1 tab space
string1 <- shiny::HTML(paste0('&emsp;', 'abcdefghijklmnopqrstuvwxyz.'))
string2 <- shiny::HTML(paste0('&emsp;', 'Add multiple spaces before the string.'))

ui <- fluidPage(
  useShinydashboard(),
  
  fluidRow(style="background:#FFEFD5",
           br(),
           column(12,box(width = 8, 
                         style = "font-size: 20px;background:#FFF5EE;color:#000000; text-align: left;",
                         title = "about", status = "danger", solidHeader = TRUE,collapsible = TRUE,string1))
  ),
  uiOutput("description_2"),
  fluidRow(style="background:#FFEFD5",
           column(12,box(string1))
  )
)

server <- function(input, output) {
}

shinyApp(ui, server)

Does this suit your needs?