如何在R shiny程序的元素上创建超链接？—科研工具箱-叨客学习资料网

请关注公众号【叨客学习资料】在使用网站的过程中有疑问，请来公众号进行反馈哦

在shiny输出表格中创建超链接，实现跳转或下载。

library(shiny)
library(DT)
library(data.table)

server <- function(input, output, session) {
  
  df_table <- reactive({
    data.table(
      links = c(
        paste0(\"<a href=\'https://www.jingege.wang\'>\", \"Home\", \"</a>\"),
        paste0(\"<a href=\'https://www.jingege.wang/CV\'>\", \"CV\", \"</a>\"),
        paste0(\"<a href=\'https://www.jingege.wang/loveluo\'>\", \"LOVE\", \"</a>\")),
      Site = c(\'https://www.jingege.wang\', \'https://www.jingege.wang/CV\', \'https://www.jingege.wang/loveluo\')
    )
    
  })
  
  output$dt_table <- renderDataTable(
    df_table(), escape = FALSE, options = list(pageLength = 5))
  
}

ui <- fluidPage(
  navbarPage(\'TEST\', 
             tabPanel(\"Table\",
                      fluidPage(
                        fluidRow(dataTableOutput(\"dt_table\")))),

  )
)

# Run the application 
shinyApp(ui, server)

效果图

图片[1]-如何在R shiny程序的元素上创建超链接？—科研工具箱-叨客学习资料网

版权声明 1、本网站名称：叨客学习资料网
2、本站永久网址：https://www.leobba.cn
3、本网站的文章部分内容可能来源于网络，仅供大家学习与参考，如有侵权，请联系站长进行删除处理。
4、本站一切资源不代表本站立场，并不代表本站赞同其观点和对其真实性负责。
5、本站一律禁止以任何方式发布或转载任何违法的相关信息，访客发现请向站长举报
6、本站资源大多存储在云盘，如发现链接失效，请联系我们我们会第一时间更新。

THE END