Я создаю пользовательский интерфейс для программы обогащения путей. Результаты показаны в таблице, как показано ниже.
Ниже приведен фрагмент, показывающий, что я использую DT:: renderDataTable и DT:: datatable для вывода таблицы на вкладке. spia_out() - это просто реактивная функция, которая запускает обогащение путей и создает фрейм данных.
spia_out <- reactive({
...get results in a dataframe...
})
output$spiaout <- DT::renderDataTable({
DT::datatable(spia_out(), extensions = ..., options = ...)
})
Все работает отлично, таблица обогащения путей генерируется и печатается в соответствующем элементе пользовательского интерфейса. Моя единственная проблема заключается в том, как преобразовать последний столбец (KEGGLINK) URL-адресов в активные гиперссылки? Чтобы люди могли просто нажимать на них вместо копирования и вставки.
Извините заранее за размер скриншота. Надеюсь, вы увидите последний столбец KEGGLINK имеет URL-адреса, но они неактивны.