如何在 Shiny 应用程序的标签中添加上标或下标等文本格式？

Question

我用 shinydashboard 构建了一个应用程序，想正确设置一些输入标签的格式。例如，我有一个这样的数字输入：

numericInput("input_a", "Label (unit = m2)", value = 1)

我找不到如何将 m2 编辑为 m²。

我尝试使用 expression 函数，但没有成功：

expression(Label~(unit~=~m^2))

Answer 1

这里有两个选项-

您可以将上标直接复制粘贴到您的文本中。
使用tags$sup

library(shiny)

ui <- fluidPage({
  fluidRow(
           column(6, numericInput("input_a", "Label (unit = m²)", value = 1)), 
           column(6, numericInput("input_b", HTML(paste0("Label (unit = m",tags$sup("2"), ')')), value = 1))
           )  
})
server <- function(input, output) {}
shinyApp(ui, server)

如何在 Shiny 应用程序的标签中添加上标或下标等文本格式？

How to add text formatting like superscript or subscript to a label in a Shiny app?

label

r

shiny

shinydashboard