## Not run:
# library(tidyr)
# library(readr) # to load the `readr:::collectorGuess` function
# library(dplyr)
# library(visdat)
#
# vis_guess(example2)
#
# dat_messy <-
# example2 %>%
# mutate(capacity = ifelse(capacity <= 60500,
# yes = "2010/10/10",
# no = capacity))
#
# vis_guess(dat_messy)
# ## End(Not run)
Run the code above in your browser using DataLab