R 在数据表中包含指向本地html文件的链接

我想在data.table中的一列中包含一个指向本地html文件的链接，该文件位于我闪亮应用程序的www目录中。单击后，将打开一个显示html文件的新选项卡。 我已经找到了链接到internet页面的解决方案，但是如何调整它，以便在浏览器中呈现时，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)

库（DT）
图书馆（闪亮）
link也许你可以试着用一个闪亮的文件夹运行你的应用程序。确保您的my_html.html文件位于您的文件夹中的
www
文件夹中

用户界面

服务器.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)
}

库（DT）
图书馆（闪亮）
df我认为您的代码的主要问题是，您将html文件的地址指定为
linknice，它与您的代码一起工作。它还可以与escape=3一起使用（我用了错误的方法）。但是当我有一个html文件时，代码就失败了，这个文件叫做“MyHTML”，中间有一个空白。我必须改变什么才能让它工作？这可能会帮助您：-）
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)
}

library(shiny)

link <- c("my_html_1.html", "my_html_2.html")
link <- sprintf('<a href="%s" target="_blank">click_here</a>', link)

df <- data.frame(name = c("1st_file", "2nd_file"), 
    value = c(10.5, 48), 
    link = link)

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

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

shinyApp(ui, server)