我正在处理一个带有可点击元素的数据表格,其中一行的列包含一个超链接。当单击超链接时,我不希望触发或管理行点击事件(选择/取消选择)。
我在R Shiny上尝试了以下方法:
function preventDefault(e) {
e.preventDefault();
e.stopPropagation();
return false;
}
包含链接的DataTable元素:
<a href="#" onclick="preventDefault(event)";>
但是什么也没有发生。
完整的源代码:
library(shiny)
library(DT)
library(dplyr)
ui <- fluidPage(
# Application title
DT::dataTableOutput("DTExample")
)
server <- function(input, output) {
dat <- head(iris)
dat <- dat %>% mutate(clickme = '<a href="#"
onclick="event.preventDefault(); event.stopPropagation(); alert(event); return false;";
>CLICKME</a>')
output$DTExample<- renderDataTable({
datatable(dat, escape = FALSE, class = 'cell-border stripe')
})
}
# Run the application
shinyApp(ui = ui, server = server)