selectRows <- function(idx, collapse) {
  JS(
    sprintf("console.log('selectRows: ', this);")
    #sprintf("console.log('idx: ' + %s + ', collapse: ' + typeof %s)", idx, collapse)
    #str_c("var drvindx = [", str_c(idx, collapse = collapse), "];"),
    #"var rowItem = $('td[data-id]', row).filter(function() {
    #   return drvindx.includes(parseInt($(this).attr('data-id')));
    #});
    #"
  )
}

addTitleToRowItem <- function(idx, title) {
  JS(
    sprintf("console.log('addTitleToRowItem: ', this)")
    #sprintf("console.log('idx: ' + %s + ', title: ' + '%s')",idx, title)
    #sprintf("var %s = data[%s];", title, idx),
    #sprintf("rowItem.attr('title', %s);", title)
  )
}

toggleCSSClassInRowItem <- function(idx, className) {
  JS(
    sprintf("console.log('idx: ' + %s + ', className: ' + %s)", idx, className)
    #sprintf("data[%s] === false ? items.addClass(%s) : items.removeClass(%s);", idx, className, className)
  )
}



selectRows(col_index_visible, ",")
addTitleToRowItem(distance_idx, type_names[i])
toggleCSSClassInRowItem(match_idx, "'note'")  // Only this one is being fired (?)