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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: apa.ezANOVA.table
> ### Title: Creates an ANOVA table in APA style based output of ezANOVA
> ###   command from ez package
> ### Aliases: apa.ezANOVA.table
> 
> ### ** Examples
> 
> #
> # ** Example 1: Between Participant Predictors
> #
> 
> library(apaTables)
> library(ez)
> 
> # See format where one row represents one PERSON
> # Note that participant, gender, and alcohol are factors
> 
> print(goggles)
   participant gender alcohol attractiveness
1            1 Female    None             65
2            2 Female    None             70
3            3 Female    None             60
4            4 Female    None             60
5            5 Female    None             60
6            6 Female    None             55
7            7 Female    None             60
8            8 Female    None             55
9            9 Female 2 Pints             70
10          10 Female 2 Pints             65
11          11 Female 2 Pints             60
12          12 Female 2 Pints             70
13          13 Female 2 Pints             65
14          14 Female 2 Pints             60
15          15 Female 2 Pints             60
16          16 Female 2 Pints             50
17          17 Female 4 Pints             55
18          18 Female 4 Pints             65
19          19 Female 4 Pints             70
20          20 Female 4 Pints             55
21          21 Female 4 Pints             55
22          22 Female 4 Pints             60
23          23 Female 4 Pints             50
24          24 Female 4 Pints             50
25          25   Male    None             50
26          26   Male    None             55
27          27   Male    None             80
28          28   Male    None             65
29          29   Male    None             70
30          30   Male    None             75
31          31   Male    None             75
32          32   Male    None             65
33          33   Male 2 Pints             45
34          34   Male 2 Pints             60
35          35   Male 2 Pints             85
36          36   Male 2 Pints             65
37          37   Male 2 Pints             70
38          38   Male 2 Pints             70
39          39   Male 2 Pints             80
40          40   Male 2 Pints             60
41          41   Male 4 Pints             30
42          42   Male 4 Pints             30
43          43   Male 4 Pints             30
44          44   Male 4 Pints             55
45          45   Male 4 Pints             35
46          46   Male 4 Pints             20
47          47   Male 4 Pints             45
48          48   Male 4 Pints             40
> 
> 
> # Use ezANOVA
> # Be sure use the options command, as below, to ensure sufficient digits
> 
> options(digits = 10)
> goggles_results <- ezANOVA(data = goggles,
+                           dv = attractiveness,
+                           between = .(gender, alcohol),
+                           participant ,
+                           detailed = TRUE)
Coefficient covariances computed by hccm()
> 
> 
> # Make APA table
> 
> goggles_table <- apa.ezANOVA.table(goggles_results,
+                                   filename="ex1_ez_independent.doc")
> 
> print(goggles_table)


ANOVA results
 

        Predictor df_num df_den  SS_num  SS_den     F    p ges
           gender      1     42  168.75 3487.50  2.03 .161 .05
          alcohol      2     42 3332.29 3487.50 20.07 .000 .49
 gender x alcohol      2     42 1978.12 3487.50 11.91 .000 .36

Note. df_num indicates degrees of freedom numerator. df_den indicates degrees of freedom denominator. 
SS_num indicates sum of squares numerator. SS_den indicates sum of squares denominator. 
ges indicates generalized eta-squared.
 

> 
> 
> 
> #
> # ** Example 2: Within Participant Predictors
> #
> 
> library(apaTables)
> library(tidyr)
> library(forcats)
> library(ez)
> 
> # See initial wide format where one row represents one PERSON
> print(drink_attitude_wide)
# A tibble: 20 x 10
   participant beer_positive beer_negative beer_neutral wine_positive
   <fct>               <int>         <int>        <int>         <int>
 1 P1                      1             6            5            38
 2 P2                     43            30            8            20
 3 P3                     15            15           12            20
 4 P4                     40            30           19            28
 5 P5                      8            12            8            11
 6 P6                     17            17           15            17
 7 P7                     30            21           21            15
 8 P8                     34            23           28            27
 9 P9                     34            20           26            24
10 P10                    26            27           27            23
11 P11                     1           -19          -10            28
12 P12                     7           -18            6            26
13 P13                    22            -8            4            34
14 P14                    30            -6            3            32
15 P15                    40            -6            0            24
16 P16                    15            -9            4            29
17 P17                    20           -17            9            30
18 P18                     9           -12           -5            24
19 P19                    14           -11            7            34
20 P20                    15            -6           13            23
# ... with 5 more variables: wine_negative <int>, wine_neutral <int>,
#   water_positive <int>, water_negative <int>, water_neutral <int>
> 
> # Convert data from wide format to long format where one row represents one OBSERVATION.
> # Wide format column names MUST represent levels of each variable separated by an underscore.
> # See vignette for further details.
> 
> drink_attitude_long <- gather(data = drink_attitude_wide,
+                               key = cell, value = attitude,
+                               beer_positive:water_neutral,
+                               factor_key=TRUE)
> 
> drink_attitude_long <- separate(data = drink_attitude_long,
+                                 col = cell, into = c("drink","imagery"),
+                                 sep = "_", remove = TRUE)
Error in bquote(on.exit({ : 'where' must be an environment
Calls: separate -> <Anonymous> -> eval_bare -> exit_handler -> bquote
Execution halted