1
2
3
4
5
6
7
8
9
10
|
m = matrix(
c(‘<b>Bold</b>‘,
‘<em>Emphasize</em>‘,
‘<a href="#" onclick="alert(\‘Hello\‘);">Hello</a>‘,
‘<a href="#" onclick="alert(\‘World\‘);">World</a>‘
), 2
)
colnames(m) = c(‘<span style="color:red">Column 1</span>‘, ‘<em>Column 2</em>‘)
datatable(m) # 默认不处理HTML标签
datatable(m, escape = FALSE) # 处理HTML标签
|
