图标在R Shiny中显示为html标签

Question

因此，我尝试使用图标显示r闪亮应用程序中的更改。我可以共享用于生成图标的代码部分，由于某种原因，当我使用renderUI时，它会生成<i class="glyphicon glyphicon-circle-arrow-up text-success fa-lg"></i>而不是图标。

 gicon <- function(x) as.character(icon(x, lib = "glyphicon"))

funcA <-function(){
       change <- 
        ifelse(
        a < b,
       gicon("circle-arrow-up text-success fa-lg"),
       gicon("circle-arrow-down text-danger fa-lg"))
      change
    }

输出：

 output$firstChange <- renderUI({ 
          paste( 450,funcA())
        })

UI

firstUI <- function(id) {
  ns <- NS(id)
  htmlOutput(ns("firstChange"))
}

如何获取图标而不是标签。