如何在Rshiny中选择一列并将一列转换为URL

如何解决如何在Rshiny中选择一列并将一列转换为URL

我是闪亮的新手，我只想知道将我的 URL 列转换为超链接的代码，以及如何使用 selectizeInput 选择表中的列。 我在这里检查了不同的问题，但没有任何效果。

      tabItem(tabName = "project",h2("I will add the project description and institiute logo here")),tabItem(tabName = "data",fluidPage(
              fluidRow(
                Box(title = "Fetch Data",selectizeInput(
                  "show_vars","Columns to show:",choices = colnames(data.input),multiple = TRUE),downloadButton("downloadData","Download table"),status="primary",solidHeader = T,collapsible = T,width = 2 ),Box( title = "Data table",status = "primary",width = 10,fluidPage(width=13,height=900,withSpinner(DT::dataTableOutput("data"))
                   )
                  
              ))))
              )))
              
 server <- function(input,output) {
    
    data <- read.csv("Drug-data.csv",header = T)
    
    
    
    output$data <- DT::renderDataTable({
      datatable(cbind.data.frame(data),filter = "top",rownames = F,options=list(autoWidth =T,dom='Bfrtrip',paging=T,pageLength=5,scroller=T,scrollX=T,scrollY=700,columnDefs = list(list(width = "175px",targets = "_all")),searching=F ),extensions = list("Scroller"))
     
      })
  
    
       
    output$downloadData <- downloadHandler(
      filename = function() {
        paste("TECHNOMISE Rapidaim data",Sys.Date(),".csv",sep="")
      },content = function(file) {
        write.csv(data,file)
      }
    )
    runjs('
        var el2 = document.querySelector(".skin-blue");
        el2.className = "skin-blue sidebar-mini";
        ')
  }