R 在shiny 的数据表中按标签对超链接进行排序

我有一个包含多个列的DataTable，其中一个列带有超链接；当用户对该列进行排序时，期望的输出将是按照超链接‘tags而不是超链接’urls对结果进行排序.

最小示例:

library(shiny)
library(DT)

ui <- bootstrapPage(
  DTOutput("tabla")
)

server <- function(input, output) {
  output$tabla <- renderDT({
    datos <- as.data.frame(matrix(ncol=3, nrow=10))
    names(datos) <- c("Allele_ID", "Significance", "Link")
    datos$Allele_ID <- c("1310278", "18560", "1770470", "1770471", "1770458", "1310279", "1310279", "17978", "1770451", "227743")
    datos$Significance <- c("Pathogenic", "Likely Pathogenic", "Pathogenic", "Uncertain Significance", "Likely Benign", "Likely Benign", "Benign", "Uncertain Significance", "Pathogenic", "Likely Benign")
    datos$Link <- paste0('<a href="http://www.ncbi.nlm.nih.gov/clinvar/?term=', datos$Allele_ID, '[alleleid]','" target="_blank">', datos$Significance, "</a>")
    DT::datatable(datos, rownames = FALSE,
                  style = 'bootstrap',
                  filter = list(position = 'top', clear = FALSE),
                  escape = FALSE,
                  options = list(
                    dom = "<\"datatables-scroll\"t>",
                    ordering = TRUE
                    )
                  )
  })
}

shinyApp(ui = ui, server = server)

我如何才能做到这一点，有什么 idea 吗？谢谢!