Running examples in ‘ruler-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: expose
> ### Title: Expose data to rule packs
> ### Aliases: expose
> 
> ### ** Examples
> 
> my_rule_pack <- . %>% dplyr::summarise(nrow_neg = nrow(.) < 0)
> my_data_packs <- data_packs(my_data_pack_1 = my_rule_pack)
> 
> # These pipes give identical results
> mtcars %>% expose(my_data_packs) %>% get_report()
Tidy data validation report:
# A tibble: 1 x 5
  pack           rule     var      id value
  <chr>          <chr>    <chr> <int> <lgl>
1 my_data_pack_1 nrow_neg .all      0 F    
> 
> mtcars %>% expose(my_data_pack_1 = my_rule_pack) %>% get_report()
Tidy data validation report:
# A tibble: 1 x 5
  pack           rule     var      id value
  <chr>          <chr>    <chr> <int> <lgl>
1 my_data_pack_1 nrow_neg .all      0 F    
> 
> # This throws an error because no pack type is specified for my_rule_pack
> ## Not run: 
> ##D   mtcars %>% expose(my_data_pack_1 = my_rule_pack, .guess = FALSE)
> ## End(Not run)
> 
> # Edge cases against using 'guess = TRUE' for robust code
> group_rule_pack <- . %>% dplyr::mutate(vs_one = vs == 1) %>%
+   dplyr::group_by(vs_one, am) %>%
+   dplyr::summarise(n_low = n() > 10)
> group_rule_pack_dummy <- . %>% dplyr::mutate(vs_one = vs == 1) %>%
+   dplyr::group_by(mpg, vs_one, wt) %>%
+   dplyr::summarise(n_low = n() > 10)
> row_rule_pack <- . %>% dplyr::transmute(neg_row_sum = rowSums(.) < 0)
> cell_rule_pack <- . %>% dplyr::transmute_all(rules(neg_value = . < 0))
> 
> # Only column 'am' is guessed as grouping which defines non-unique levels.
> ## Not run: 
> ##D   mtcars %>%
> ##D     expose(group_rule_pack, .remove_obeyers = FALSE, .guess = TRUE) %>%
> ##D     get_report()
> ## End(Not run)
> 
> # Values in `var` should contain combination of three grouping columns but
> # column 'vs_one' is guessed as rule. No error is thrown because the guessed
> # grouping column define unique levels.
> mtcars %>%
+   expose(group_rule_pack_dummy, .remove_obeyers = FALSE, .guess = TRUE) %>%
+   get_report()
Tidy data validation report:
# A tibble: 64 x 5
   pack          rule   var           id value
   <chr>         <chr>  <chr>      <int> <lgl>
 1 group_pack..1 vs_one 10.4.5.25      0 F    
 2 group_pack..1 vs_one 10.4.5.424     0 F    
 3 group_pack..1 vs_one 13.3.3.84      0 F    
 4 group_pack..1 vs_one 14.3.3.57      0 F    
 5 group_pack..1 vs_one 14.7.5.345     0 F    
 6 group_pack..1 vs_one 15.3.57        0 F    
 7 group_pack..1 vs_one 15.2.3.435     0 F    
 8 group_pack..1 vs_one 15.2.3.78      0 F    
 9 group_pack..1 vs_one 15.5.3.52      0 F    
10 group_pack..1 vs_one 15.8.3.17      0 F    
# ... with 54 more rows
> 
> # Results should have in column 'id' value 1 and not 0.
> mtcars %>% dplyr::slice(1) %>% expose(row_rule_pack) %>% get_report()
Tidy data validation report:
# A tibble: 1 x 5
  pack         rule        var      id value
  <chr>        <chr>       <chr> <int> <lgl>
1 data_pack..1 neg_row_sum .all      0 F    
> 
> mtcars %>% dplyr::slice(1) %>% expose(cell_rule_pack) %>% get_report()
Error: `UQS()` can only be used within a quasiquoted argument
Execution halted