Question

我想在textInput小部件的值字段中使用希腊字母和下标之类的内容。我知道如何为标签做这个，但同样的事情在现场不起作用。这是玩具示例

    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

    })  

  }  
))

textInput值字段中的特殊符号

1 个答案: