library("magrittr")
library("tools")
m <- matrix(1:12, ncol=4)
hm <- html_matrix_sk(m, title='', fmt=rep("%f", ncol(m))) %>%
add_tooltip(sprintf("Table has %0.f rows and %0.f columns", nrow(.), ncol(.)))
if (interactive()) html <- toHTML(hm, browser=TRUE)
Run the code above in your browser using DataLab