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

问题描述

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

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

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

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

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

解决方法

这里有两个选项 -

1. 您可以将上标直接复制粘贴到您的文本中。
2. 使用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)