URL为hyperlynks的renderDataTable在URL之前包含服务器地址

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

#使用文件输入选择器定义UI
用户界面
#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')
}