Значки отображаются в виде HTML-тегов в R блестящий

Question

Поэтому я пытаюсь использовать значки, чтобы показать изменения в блестящем приложении. Я могу поделиться частью кода, который я использую для генерации иконок, и по какой-то причине, когда я использую 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"))
}

Как получить значок вместо тега.