как получить то, что находится в 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"

Как мне это сделать?