# NOT RUN {
dfr <- data.frame(a = 1:5, b = letters[1:5], stringsAsFactors = FALSE)
as_huxtable(dfr)
mx <- matrix(letters[1:12], 4, 3)
as_huxtable(mx)
library(stats)
tbl <- table(Wool = warpbreaks$wool, Tension = warpbreaks$tension)
as_huxtable(tbl) # adds row and column names by default
# }
Run the code above in your browser using DataLab