Блог

У меня есть следующий код (упрощенный, чтобы показать проблему):

 #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 и почему это происходит?

Большое спасибо за вашу помощь!