渲染表格中的下标/上标（闪亮）

我在一个闪亮的应用程序中有一个数据表，我想在其中添加上标到我的观察结果中。这些应该详细说明观察结果是否是估计值，以及观察年份距参考年份有多远（此数据已经在我的数据集中）。例如，特定的观察结果可能显示：“75(上标)-3 e”。

这可能吗？

我今天也有同样的问题，这篇文章帮助我找到了一些答案。有一个这样的工作示例如何在renderTable（Shiny）的行名称中添加下标？ https://stackoverflow.com/questions/46714367/how-to-add-subscripts-in-the-row-names-of-a-rendertable-shiny我已将其粘贴在下面，并完全承认它不是我的！

如下：

  library(shiny)
  library(DT)
  ui <- fluidPage(dataTableOutput("table"))

  server <- function(input, output) {
     output$table <- renderDataTable({
      data <- datatable(data.frame(c(1, 2), row.names = c("A<sub>1</sub>", "A<sub>2</sub>")), rownames = T, escape = FALSE)
      })
  }

  shinyApp(ui = ui, server = server)

我尝试过类似的<sub> and <sup>表格正文中的标签，并以相同的方式处理它。