Как отобразить css класс с помощью JS в datatable в сценарии R

Question

Я пытаюсь внести некоторые изменения в мою таблицу данных, используя JS script

Требуемое изменение - это вырезать длинные строки и одновременно разрешить всплывающую подсказку для одной и той же ячейки. Это код JS, который я используется внутри моей таблицы данных:

output$Table <- DT::renderDataTable({ 

  Class<-sapply(Data,function(x){class(x)})
  char_col.ind<-which(Class %in% c("factor","character"))   
  ##
  datatable(Data,escape = -2,selection = "single",
            options=list(
              columnDefs = list(list(
                targets  = char_col.ind, #data.substr(0, 30) 
                render = JS(
                  "function(data, type, row, meta) {",
                  "return type === 'display' && data!==null && data.length > 30 ?",
                  "'<div class='autotip' style='max-width: 111px' data-toggle='tooltip' title=data>' 
            + data  </div>' : data; console.log(data);",
                  "'<span class='tooltip'> data  </span>' : data;",
                )))))
})

Это код внутри моего css файла:

.autotip {
    text-overflow: ellipsis;
    overflow: hidden;
    white-space: nowrap;
}

.tooltipcode:hover .tooltip{
    display: block;
}


.tooltip{
    display: none;
    background: #C8C8C8;
    margin-left: 28px;
    padding: 10px;
    position: absolute;
    z-index: 1000;
    width: 200px;
    height: 100px;
}

Спасибо за вашу помощь. Высоко ценится