data(iris)
cf <- condformat(iris[c(1:5, 70:75, 120:125), ]) %>%
rule_fill_gradient(Sepal.Length) %>%
rule_fill_gradient(Species, expression=Sepal.Length - Sepal.Width)
if (FALSE) {
print(cf)
}
cf <- condformat(iris[c(1:5, 70:75, 120:125), ]) %>%
rule_fill_gradient("Petal.Length") %>%
rule_fill_gradient(starts_with("Sepal"), expression=Sepal.Length - Sepal.Width)
if (FALSE) {
print(cf)
}
Run the code above in your browser using DataLab