在表格中渲染子/上标（闪亮）

Question

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

这可能吗？

Answer 1

我今天也有同样的问题，这篇文章帮我找到了一些方法。我在下面粘贴了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>和<sup>标签，它以同样的方式对待它。

Answer 2

好的解决方案是在html标签中输入上标并在render datatable中指定“escape = FALSE”以呈现html。