# NOT RUN {
cat(export_table(iris))
cat(export_table(iris, sep = " ", header = "*", digits = 1))
# }
# NOT RUN {
# colored footers
data(iris)
x <- as.data.frame(iris[1:5, ])
attr(x, "table_footer") <- c("This is a yellow footer line.", "yellow")
cat(export_table(x))
attr(x, "table_footer") <- list(
c("\nA yellow line", "yellow"),
c("\nAnd a red line", "red"),
c("\nAnd a blue line", "blue")
)
cat(export_table(x))
attr(x, "table_footer") <- list(
c("Without the ", "yellow"),
c("new-line character ", "red"),
c("we can have multiple colors per line.", "blue")
)
cat(export_table(x))
# }
Run the code above in your browser using DataLab