在表格中渲染sub/superscript (有光泽)

Question

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

这个是可能的吗？

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。