Question

我的同伴Shiny用户！我在Shiny表输出中渲染希腊字母时遇到问题。请注意，我确实知道如何使用HTML函数在Shiny中打印希腊字母。请参阅下面的代码段。

这是ui.R：

library(shiny)

shinyUI(pageWithSidebar(

  headerPanel("A sample"),

  sidebarPanel(
    numericInput(
      inputId = "alpha",
      label = HTML("&alpha;:"),
      value = 0.05,
      step = 0.01
    )
  ),

  mainPanel(
    plotOutput("samplePlot")
  )
))

这是server.R：

shinyServer(function(input, output) {
  output$samplePlot <- renderPlot({
    hist(c(1:100), main = "A Sample Plot", xlab = "Whatever")
  })
})

这很好用，并在滑块中给我一个希腊字母。但是，我希望在我的表输出中也有希腊字母，但类似的方法似乎不起作用...请参阅下面的代码。

这是ui.R：

library(shiny)

shinyUI(pageWithSidebar(

  headerPanel("A sample"),

  sidebarPanel(
    numericInput(
      inputId = "alpha",
      label = HTML("&alpha;:"),
      value = 0.05,
      step = 0.01
    )
  ),

  mainPanel(
    plotOutput("samplePlot"),
    tableOutput("myTable")
  )
))

这是server.R：

shinyServer(function(input, output) {
  output$samplePlot <- renderPlot({
    hist(c(1:100), main = "A Sample Plot", xlab = "Whatever")
  })

  output$myTable <- renderTable({
    data.frame(alpha = HTML("&alpha;:"), value = 3)
  })
})

有关如何在表输出的alpha列中打印出希腊字母的任何想法。感谢任何帮助！

Answer 1

尝试

sanitize.text.function = function(x) x

作为renderTable的选项，

我从这篇文章中得到的想法：

r shiny table not rendering html

在闪亮的应用程序的表输出中呈现希腊字母

1 个答案: