# NOT RUN {
if (check_for_pkg("nycflights13", message)) {
small_flights <- head(nycflights13::flights)
# with no columns specified, redacting does nothing
redact_columns(small_flights, columns = NULL)
# integer
redact_columns(small_flights, columns = c("arr_time"))
# numeric
redact_columns(small_flights, columns = c("arr_delay"))
# characters
redact_columns(small_flights, columns = c("origin", "dest"))
# datetiems
redact_columns(small_flights, columns = c("time_hour"))
}
# }
Run the code above in your browser using DataLab