data(iris)
x <- head(iris)
# Include some columns:
cf <- condformat(x) %>% show_columns(c(Sepal.Length, Sepal.Width, Species))
if (FALSE) {
print(cf)
}
cf <- condformat(x) %>% show_columns(c("Sepal.Length", "Sepal.Width", "Species"))
if (FALSE) {
print(cf)
}
# Rename columns:
cf <- condformat(x) %>%
show_columns(c(Sepal.Length, Species),
col_names = c("Length", "Spec."))
if (FALSE) {
print(cf)
}
# Exclude some columns:
cf <- condformat(x) %>% show_columns(c(-Petal.Length, -Petal.Width))
if (FALSE) {
print(cf)
}
cf <- condformat(x) %>% show_columns(c(starts_with("Petal"), Species))
if (FALSE) {
print(cf)
}
petal_width <- "Petal.Width"
cf <- condformat(x) %>% show_columns(!! petal_width)
if (FALSE) {
print(cf)
}
Run the code above in your browser using DataLab