colorDF(mtcars)
print_colorDF(mtcars, row.names=FALSE)
if(require(dplyr)) {
starwars %>% colorDF
starwars %>% print_colorDF(highlight=.$homeworld == "Tatooine")
## equivalently
starwars %>% highlight(.$homeworld == "Tatooine")
## with another style
options(colorDF_theme="bw")
starwars %>% print_colorDF(tibble_style=TRUE, sep=" |%%| ")
}
Run the code above in your browser using DataLab