如何在Shiny表头中使用符号？

Question

  

目标：在闪亮应用的列标题中使用数学符号。

例如，x-bar或beta，alpha等。

以下是我尝试过的，会产生奇怪的结果（见图）。

我还尝试过使用和表达式，它出现了这个错误：Warning: Error in as.data.frame.default: cannot coerce class ""expression"" to a data.frame

ui.R档案：

library(shiny)

shinyUI(pageWithSidebar(
  headerPanel("Hello Shiny!"),
  sidebarPanel(),
  mainPanel(
    tableOutput("mytable"),
    tableOutput("mytable2")
  )
))

server.R文件：

library(shiny)

shinyServer(function(input, output) {

  mytable <- reactive({
    iris2 <- iris
    colnames(iris2) <-  c("Sepal.Length", "Sepal.Width","$m^r_t$", "$\\delta p_t$","$R^r_t$")
  })

  output$mytable <-  renderTable(head(iris,5))
  output$mytable2 <-  renderTable(mytable())

})

输出：

Answer 1

答案是依赖于使用unicode字符作为表头的html而不是R：

  output$mytable2 <-  renderTable({mytable()},include.colnames=FALSE,
                                  add.to.row = list(pos = list(0), 
                                  command = " <tr> <th> &#931 </th> <th> &#963;</th> <th> &#7839;</th> <th> &#127137;</th> <th>  &#x263A; </th>  </tr>" ))