textInput值字段中的特殊符号

Question

我想在textInput小部件的value字段中使用希腊字母和下标之类的内容。 我知道如何为标签执行此操作，但是在现场无法正常运行。 这是玩具的例子

    runApp(list(
  ui = fluidPage(
    uiOutput("txt")
  ),
  server = function(input, output) {
    output$txt <- renderUI({
       textInput("a", 
            label = HTML(" &pi;<sub>0</sub> works here"), 
            value = HTML("but not &pi;<sub>0</sub> here"))

    })    
  }  
))

这会在标签中正确显示希腊字母和下标，但在文本字段中不会正确显示

Answer 1

值不能为html，您需要使用其他方式输入特殊字符，“π\\ u2092”有效，

或者避免知道π：

value = paste0(intToUtf8(0x03C0), "\u2092")

请注意，它看起来不太好，因为下标被剪切了：

library(shiny)
runApp(list(
  ui = fluidPage(
    textInput("a", 
              label = HTML(" &pi;<sub>0</sub> works here"), 
              value = paste0(intToUtf8(0x03C0), "\u2092, works here!")),
    verbatimTextOutput ("txt")
  ),
  server = function(input, output) {
    output$txt <- renderText({
      input$a

    })  

  }  
))