## ----include = FALSE---------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) library(ggplot2) library(emphatic) ## ----setup-------------------------------------------------------------------- library(ggplot2) library(emphatic) ## ----------------------------------------------------------------------------- test_df <- head(mtcars, 10) ## ----------------------------------------------------------------------------- test_df |> hl('skyblue') ## ----------------------------------------------------------------------------- test_df |> hl('skyblue', cols = NULL) ## ----------------------------------------------------------------------------- test_df |> hl('skyblue', cols = all()) ## ----------------------------------------------------------------------------- test_df |> hl('skyblue', cols = 2:5) ## ----------------------------------------------------------------------------- test_df |> hl('skyblue', cols = c('mpg', 'gear')) ## ----------------------------------------------------------------------------- test_df |> hl('skyblue', cols = c(drat, am)) ## ----------------------------------------------------------------------------- test_df |> hl('skyblue', cols = drat:am) ## ----------------------------------------------------------------------------- test_df |> hl('skyblue', cols = col_number() < 4) ## ----------------------------------------------------------------------------- test_df |> hl('skyblue', cols = contains('a')) ## ----------------------------------------------------------------------------- test_df |> hl('skyblue', cols = ends_with('t')) ## ----------------------------------------------------------------------------- test_df |> hl('skyblue', cols = any_of(c('mpg', 'wt', 'age')))