[英]Shiny datatable Tooltip/popover not working with paging
我想在数据表的每一行上添加一个弹出框。 使用 [here] 提供的解决方案( Shiny 数据表中的工具提示或弹出框用于行名称? )(我不懂 JavaScript,所以我盲目复制粘贴代码)我设法在表格的第一页上添加了弹出框.
问题是桌子很大,所以我不得不把它分成更多页。 当我选择表格的另一页时,弹出框停止工作。
这是我正在使用的代码
output$view_data<-DT::renderDataTable({
DT::datatable(Extraction(),rownames = FALSE,escape = FALSE,
callback = JS(paste("
var tips =",paste0("[",paste0("'",unlist(DrugFilter()),"'",collapse=","),"]"),",
firstColumn = $('#view_data tr td:first-child');
for (var i = 0; i < tips.length; i++)
{$(firstColumn[i]).attr('title', tips[i]);}"
))
))
}, server = FALSE)
如何修改代码以使弹出窗口在所有表格页面上工作,而不仅仅是在第一个页面上工作?
我会尝试使用rowCallback
:
rowCallback <- c(
"function(row, data, displayNum, displayIndex){",
sprintf(" var tips = [%s];",
paste0("'",unlist(DrugFilter()),"'",collapse=",")),
" for(var i = 0; i < tips.length; i++){",
" if(displayIndex== i){",
" $('td:eq(0)',row).attr('title', tips[i]);",
" }",
" }",
"}"
)
datatable(Extraction(),
rownames = FALSE,
escape = FALSE,
options = list(
rowCallback = JS(rowCallback)
)
)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.