Shiny - RenderDataTable -显示空格

Question

如何在闪亮应用程序的渲染DataTable中显示空格？

当运行下面的应用程序时-用户可以双击以编辑单元格，并看到数据框“值”中的前导空格。

我不知道如何让空格变得可见！

library(shiny)
library(DT)
    ui = fluidPage(dataTableOutput("mytable"))
    server = function(input, output){
      values = data.frame(Demographics = c("Total", "Split_A", "Split_B", "Split_B1", "Split_B2"),check.names = F)

      output$mytable <- renderDT(
        values,
        selection = 'none',
        rownames = FALSE,
        escape   = FALSE,
        editable = T
      )
    }
  shinyApp(ui, server)

Answer 1

在https://community.rstudio.com/上由nirgrahamuk友好地回答

ui = fluidPage(
               tags$style("#mytable { white-space:pre; }"),
                dataTableOutput("mytable")
               )