# NOT RUN {
numbers <- c(1, 1.5, 1.03, 10, 10.01)
number_hux <- as_hux(matrix(numbers, 5, 4))
number_format(number_hux) <- "%.4g"
number_hux <- map_align(number_hux,
by_cols("left", "center", "right", "."))
alignments <- c("left", "centre", "right", "decimal (.)")
number_hux <- rbind(
alignments,
number_hux
)
number_hux
# }
Run the code above in your browser using DataLab