Running examples in 'crosstable-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: apply_labels
> ### Title: Batch set variable labels
> ### Aliases: apply_labels
> 
> ### ** Examples
> 
> library(crosstable)
> iris %>%
+   apply_labels(Sepal.Length="Length of Sepal",
+                Sepal.Width="Width of Sepal") %>% 
+   crosstable()
Error: Column `x` not found in `.data`
Backtrace:
     x
  1. +-`%>%`(...)
  2. +-crosstable::crosstable(.)
  3. | \-crosstable:::cross_by(...)
  4. |   \-purrr::imap_dfr(...)
  5. |     \-purrr::map2_dfr(.x, vec_index(.x), .f, ..., .id = .id)
  6. |       \-purrr::map2(.x, .y, .f, ...)
  7. |         \-crosstable:::.f(.x[[i]], .y[[i]], ...)
  8. |           \-crosstable:::cross_categorical(...)
  9. |             \-crosstable:::summarize_categorical_single(...)
 10. |               \-`%>%`(...)
 11. +-dplyr::select(., variable = .data$x, value = .data$value)
 12. +-dplyr:::select.data.frame(., variable = .data$x, value = .data$value)
 13. | \-tidyselect::eval_select(expr(c(...)), .data)
 14. |   \-tidyselect:::eval_select_impl(...)
 15. |     +-tidyselect:::with_subscript_errors(...)
 16. |     | +-base::tryCatch(...)
 17. |     | | \-base:::tryCatchList(expr, classes, parentenv, handlers)
 18. |     | |   \-base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
 19. |     | |     \-base:::doTryCatch(return(expr), name, parentenv, handler)
 20. |     | \-tidyselect:::instrument_base_errors(expr)
 21. |     |   \-base::withCallingHandlers(...)
 22. |     \-tidyselect:::vars_select_eval(...)
 23. |       \-tidyselect:::walk_data_tree(expr, data_mask, context_mask)
 24. |         \-tidyselect:::eval_c(expr, data_mask, context_mask)
 25. |           \-tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
 26. |             \-tidyselect:::walk_data_tree(new, data_mask, context_mask)
 27. |               \-base::eval(expr, data_mask)
 28. |                 \-base::eval(expr, data_mask)
 29. |                   +-x
 30. |                   \-rlang:::`$.rlang_data_pronoun`(.data, x)
 31. |                     \-rlang:::data_pronoun_get(x, nm)
 32. \-rlang:::abort_data_pronoun(x)
Execution halted