我正在尝试使用 JS 脚本 attr 函数添加工具提示，但编写的脚本没有给出所需的结果(为数据表的第一列添加工具提示)。正如我一样新的 JS 脚本因此无法调试错误，任何人都可以告诉我为什么下面的代码没有给我正确的结果。这是一段代码:
library(shiny)
library(DT)
shinyApp(
ui = fluidPage(
DT::dataTableOutput("table2")
),
server = function(input, output) {
output$table2<-DT::renderDataTable({
responseDataFilter2_home<-iris[,c(4,3,1)]
displayableData<-as.data.frame(responseDataFilter2_home, stringAsFactors = FALSe, row.names = NULL)
},server = TRUE, selection = 'single',callback = JS("table.on('dblclick.dt', 'td', function(nRow, aData){
var row=table.cell(this).index().row;
var full_text = aData[1] + ','+ aData[2]
$('td:eq(1)', nRow).attr('title', full_text);
Shiny.onInputChange('rows_home',[row, Math.random()]);});
table.on('click.dt', 'td', function(nRow, aData) {
var k=table.cell(this).index().row;
var full_text = aData[1] + ','+ aData[2]
$('td:eq(1)', nRow).attr('title', full_text);
if(table.rows('.selected').indexes().toArray()!= '' && table.rows('.selected').indexes().toArray() ==k){
k=-1;}
Shiny.onInputChange('rows_up_home',[k, Math.random()]);
});"),
escape=FALSE,options=list(paging=FALSE,searching = FALSE,ordering=FALSE,scrollY = 400,scrollCollapse=TRUE,
columnDefs = list(list(width = '800%', targets = c(1)))),rownames=FALSE,colnames="Name")
}
)
最佳答案
我已经用我在link中给出的答案修改了您的代码这样您就可以获得工具提示，而不会影响 JS 代码的其他部分:
library(shiny)
library(DT)
shinyApp(
ui = fluidPage(
DT::dataTableOutput("table2")
),
server = function(input, output) {
output$table2<-DT::renderDataTable({
responseDataFilter2_home<-iris[,c(4,3,1)]
displayableData<-DT::datatable(data = as.data.frame(responseDataFilter2_home, stringAsFactors = FALSE, row.names = NULL),rownames = FALSE,
escape = FALSE, selection = 'single', callback = JS("table.on('dblclick.dt', 'td', function(nRow, aData){
var row=table.cell(this).index().row;
var full_text = aData[1] + ','+ aData[2]
$('td:eq(1)', nRow).attr('title', full_text);
Shiny.onInputChange('rows_home',[row, Math.random()]);});
table.on('click.dt', 'td', function(nRow, aData) {
var k=table.cell(this).index().row;
var full_text = aData[1] + ','+ aData[2]
$('td:eq(1)', nRow).attr('title', full_text);
if(table.rows('.selected').indexes().toArray()!= '' && table.rows('.selected').indexes().toArray() ==k){
k=-1;}
Shiny.onInputChange('rows_up_home',[k, Math.random()]);
});"),
options = list(rowCallback = JS(
"function(nRow, aData, iDisplayIndex, iDisplayIndexFull) {",
"var full_text = aData[0] + ','+ aData[1];",
"$('td:eq(0)', nRow).attr('title', full_text);",
"}"),paging=FALSE,searching = FALSE,ordering=FALSE,scrollY = 400,scrollCollapse=TRUE,
columnDefs = list(list(width = '800%', targets = c(1))),colnames="Name") )
})
})
希望对你有帮助!
关于javascript - 在 R Shiny 的数据表中添加工具提示，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/41501474/