将字符串列表转换为可点击链接

时间:2017-07-27 03:19:57

标签: r hyperlink shiny href dashboard

我想做一些与{http://rstudio.github.io/DT/}的第2.9部分类似的事情。我能够使输出正确(" RStudio"和Hello)但不是clikable(RStudio和Hello)

    m = matrix(c(
   '<b>Bold</b>', '<em>Emphasize</em>', '<a href="http://rstudio.com">RStudio</a>',
   '<a href="#" onclick="alert(\'Hello World\');">Hello</a>'
    ), 2)
    colnames(m) = c('<span style="color:red">Column 1</span>', '<em>Column 2</em>')
 datatable(m)  # escape = TRUE by default

我的输出是

<b>Bold</b> <a href="http://rstudio.com">RStudio</a> <em>Emphasize</em> <a href="#" onclick="alert('Hello World');">Hello</a>

我想要的输出是:

大胆 | RStudio

强调 |你好

我使用以下代码作为我的DT:

mydata$url <- paste0("<a href='",mydata$url,"' target='_blank'>",mydata$url,"</a>")

请提出任何建议

0 个答案:

没有答案