Crosstalk filter columns with HTML links - example

R Markdown - crosstalk filter_select for HTML links

df <- data.frame('entry' = 1, 'value_link' = '<a href=\'http://www.rstudio.com\'>crosstalk1</a>', 'value_raw' = 'crosstalk1', stringsAsFactors = F)
df <- dplyr::bind_rows(df, data.frame('entry' = 2, 'value_link' = '<a href=\'https://www.rstudio.com\'>crosstalk2</a>', 'value_raw' = 'crosstalk2', stringsAsFactors = F))

library(crosstalk)

test_shared <- crosstalk::SharedData$new(df)
crosstalk::bscols(
  list(
    crosstalk::filter_select("TEST", "value_link", test_shared, ~value_link)
  )
)

crosstalk::bscols(
  DT::datatable(test_shared, escape=F,extensions=c("Buttons","Responsive"), width = "100%")
)