Аргумент escape должен быть внутри функции с данными, а не renderDataTable. Более того, renderDataTable - это функция с аргументами. Поэтому я думаю, что вектор, измененный вашим paste0, - это то, что берется за аргумент «таблицы» функцией, а не сам data.frame. Это объясняет возникновение исключения измерения.
Это должно сработать:
output$TI_scores <- DT::renderDataTable({
TI_result_scores$Trail_id <- paste0(...) #your code here
datatable(TI_result_scores,escape=FALSE)
})
Сообщите нам, если проблема все еще существует.
С уважением