如何解决带有URL超链接的renderDataTable包括URL之前的服务器地址
我有以下代码(简化以显示问题):
#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','</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 ,为什么会发生?
非常感谢您的帮助!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。