Question

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

这可能吗？

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。

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

2 个答案: