r - 具有 URL 超链接的 renderDataTable 在 URL 之前包含服务器地址

Question

我有以下代码（简化以显示问题）：

#Defining UI with a file input selector
ui <- fluidPage(
            fluidRow(
                column(2,
                       fileInput("file",
                       label=HTML('<p style="color:black; font-size: 12pt"> File </p>')
                )
              )
          # Basic page
           basicPage(
           label=HTML('<p style="color:black; font-size: 14pt"> Results </p>'),
                dataTableOutput("table")
            )
# Define server 
server <- function(input, output) {

    
    res.table <- reactive({
        infile<-input$file
        
        if (is.null(infile)) return(NULL)
        
        data<-readRDS(infile$datapath)
        data<-data%>%
            mutate(URL=paste0('<a href=\\https://www.google.com',URL,'\\ target="_blank" class="btn btn-primary">','https://www.google.com',URL,'</a>'))
        

        return(data)
    })
   
    output$table <-renderDataTable({ 
        
        res.table()
        
        
        },escape=F,filter='top')
}

使用此代码，我获得了一个可点击的超链接。问题是在 URL 之前添加了服务器方向：http: //123.0.0.1 :4563/https://www.google.com

如何删除http://123.0.0.1:4563以及为什么会这样？

非常感谢你的帮助！

标签： rshiny