Включить ссылку на локальный файл html в DataTable в Shiny

Question

Я хочу включить ссылку на локальный файл html, который живет в каталоге www моего блестящего приложения, внутри столбца в data.table. При щелчке на новой вкладке следует открыть файл html. Я нашел решения для ссылок на интернет-страницы, но как мне настроить это, так что Shiny находит локальные файлы при визуализации в браузере?

Это мой код

library(DT) 
library(shiny) 

link <- "www/my_html.html" 
link <- paste0("<a href='", link,"' target='_blank'>", link,"</a>") # works fine for global url, but not for local file 
df <- data.frame(a = 10.5, b = 48, link = link) 

ui <- fluidPage(
    DT::dataTableOutput('table1') 
) 

server <- function(input, output) { 
    output$table1 <- DT::renderDataTable({df}, escape = -3) 
} 

shinyApp(ui, server) 

Answer 1

Может быть, вы могли бы попробовать запустить приложение с помощью блестящей папки. Убедитесь, что ваш файл my_html.html находится в папке www в вашей блестящей папке.

ui.R

library(DT) 
library(shiny) 

fluidPage(
    DT::dataTableOutput('table1') 
) 

server.R

library(DT) 
library(shiny) 

df <- data.frame(a = 10.5, b = 48, link = "<a href='my_html.html' target='blank' >MyFile</a>") 

function(input, output) { 
    output$table1 <- DT::renderDataTable({df}, escape = FALSE) 
}