如何获取htmlOutput中的内容

Question

我有以下flexdashboard

---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
```

Column
-----------------------------------------------------------------------

### 

```{r}
htmlOutput("ui_txt")
output$ui_txt <- renderText({
  "hi there <how@di.how>> sometimes html is just full of <> lovely symbols"
})
```

这个基本上告诉我这个

如您所见，它会删除很好的电子邮件地址，并且仅显示"hi there > sometimes html is just full of <> lovely symbols"

我想在R中有一个模仿htmlOutput的函数，以便我可以调用

thatfunction("hi there <how@di.how>> sometimes html is just full of <> lovely symbols")

它返回我"hi there > sometimes html is just full of <> lovely symbols"

我应该怎么做？