如何在 R Shiny 中插入特殊字符作为 case_when 的结果？

Question

我在 R Shiny 中输入了这段代码：

case_when(tesdata$note <= 10 ~ "&#8804",
tesdata$note > 10 ~ "&#8805")

如果值小于或等于 10，则应 return ≤，如果值大于 10，则应 ≥。
但是它不会给我特殊字符，而是 return 代码本身 "&#8804"。

如何使其成为 return 特殊字符？

Answer 1

您可以使用等效的 unicode。

testdata %>% 
  mutate(
    newcolumn = case_when(
      note <= 10 ~ "\u2264",  # ≤
      note > 10  ~ "\u2265",  # ≥
      TRUE       ~ "\u2245"   # ≅
    )
  )

如何在 R Shiny 中插入特殊字符作为 case_when 的结果？

How do I insert special character as the result of case_when in R Shiny?

r

case-when

shiny