R中的空格Shiny

Question

我在Shiny Dashboard中遇到了文本問題。我想保存原始文本格式，但閃亮刪除我想保留的空格。

output$frame <- renderUI({ 
    HTML(paste(
       p(strong("Name and Surname:"),("  John Smith")) 
       ) 
     ) 
    }) 


tabItem(tabName = "aaa", 
     h2("bbb"), 
     fluidRow(
       box(width = 6, solidHeader = TRUE, htmlOutput("frame")) 
       ) 
    ), 

不幸的是我得到"Name and Surname: John Smith". 我希望有"Name and Surname: John Smith"。

如何解決這個問題？

Answer 1

您可以使用HTML(' ')加1個空格和HTML(' ')加1個空間。在你的代碼，它沃爾德如下：

output$frame <- renderUI({ 
     HTML(paste(
      p(strong("Name and Surname:"), HTML('&nbsp;'),HTML('&nbsp;'),"John Smith") 
     ) 
     ) 
     }) 

有了這個，你得到兩個空格和輸出如下：

Answer 2

我發現，我們還可以使用stri_dup(intToUtf8(160), 6)從包stringi。