@anvesh2953 I don't remember where I saw it, but you can use the escape = FALSE argument in datatable to add HTML into your data and have datatable render it. For example:
output$mytable <- DT::renderDataTable(DT::datatable({
data <- dt()[,c("Date","IMEI","PDLColor","ULSpeed","DLSpeed","site")] %>%
mutate(site = paste0("<a href='", site,"' target='_blank'>", site,"</a>"))
data
},
escape = FALSE))