如何在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程序的元素上创建超链接?—科研工具箱-叨客学习资料网
© 版权声明
THE END
喜欢就支持一下吧
点赞0 分享
评论 抢沙发
头像
请输入有效评论哦,肆意灌水或者乱打评论是不会通过的,会影响您评论后获得资源哦~~
提交
头像

昵称

取消
昵称表情

    暂无评论内容