pander function inside sapply in r

How we use pander() function inside a sapply() to knit a table into HTML/ word? Here is my code Data <- data.frame(A = sample(1:2,10,replace = TRUE),