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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: recruitment_ctfs
> ### Title: Recruitment, mortality, and growth.
> ### Aliases: recruitment_ctfs mortality_ctfs growth_ctfs
> 
> ### ** Examples
> 
> assert_is_installed("fgeo.x")
> 
> census1 <- fgeo.x::tree5
> census2 <- fgeo.x::tree6
> 
> as_tibble(
+   recruitment_ctfs(census1, census2)
+ )
Detected dbh ranges:
  * `census1` = 10.9-323.
  * `census2` = 10.5-347.
Using dbh `mindbh = 0` and above.

# A tibble: 1 x 8
     N2     R   rate   lower  upper  time  date1  date2
  <dbl> <dbl>  <dbl>   <dbl>  <dbl> <dbl>  <dbl>  <dbl>
1    29     3 0.0241 0.00846 0.0681  4.53 18938. 20601.
> 
> # Use `interaction(...)` to aggregate by any number of grouping variables
> sp_quadrat <- interaction(census1$sp, census1$quadrat)
> 
> recruitment <- recruitment_ctfs(
+   census1, census2,
+   split1 = sp_quadrat,
+   quiet = TRUE
+ )
> as_tibble(recruitment)
# A tibble: 540 x 9
   groups         N2     R  rate lower upper  time date1 date2
   <chr>       <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
 1 MATDOM.1007     1     0     0     0 0.410  4.50 18891 20535
 2 CASSYL.1010     1     0     0     0 0.411  4.49 18914 20555
 3 SLOBER.110      1     0     0     0 0.409  4.51 18897 20543
 4 SLOBER.1106     1     0     0     0 0.404  4.56 18849 20516
 5 CECSCH.1114     1     0     0     0 0.413  4.47 18948 20580
 6 PSYBRA.1318     1     0     0     0 0.412  4.48 19011 20646
 7 HIRRUG.1403     1     0     0     0 0.403  4.58 18834 20506
 8 CASSYL.1411     1     0     0     0 0.414  4.45 18931 20558
 9 SLOBER.1414     1     0     0     0 0.403  4.57 18952 20622
10 GUAGUI.1419     1     0     0     0 0.406  4.54 19012 20670
# … with 530 more rows
> 
> mortality <- mortality_ctfs(
+   census1, census2,
+   split1 = sp_quadrat, quiet = TRUE
+ )
> as_tibble(mortality)
# A tibble: 540 x 10
   groups          N     D  rate lower upper  time date1 date2 dbhmean
   <chr>       <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>   <dbl>
 1 MATDOM.1007     1     0     0     0 0.410  4.50 18891 20535   240  
 2 CASSYL.1010     1     0     0     0 0.411  4.49 18914 20555    67  
 3 SLOBER.110      1     0     0     0 0.409  4.51 18897 20543   150  
 4 SLOBER.1106     1     0     0     0 0.404  4.56 18849 20516    50  
 5 CECSCH.1114     1     0     0     0 0.413  4.47 18948 20580   228  
 6 PSYBRA.1318     1     0     0     0 0.412  4.48 19011 20646    14  
 7 HIRRUG.1403     1     0     0     0 0.403  4.58 18834 20506    12.9
 8 CASSYL.1411     1     0     0     0 0.414  4.45 18931 20558    13.1
 9 SLOBER.1414     1     0     0     0 0.403  4.57 18952 20622    16.6
10 GUAGUI.1419     1     0     0     0 0.406  4.54 19012 20670   108  
# … with 530 more rows
> 
> growth <- growth_ctfs(census1, census2, split1 = sp_quadrat, quiet = TRUE)
> as_tibble(growth)
# A tibble: 540 x 8
   groups        rate     N  clim dbhmean  time date1 date2
   <chr>        <dbl> <dbl> <dbl>   <dbl> <dbl> <dbl> <dbl>
 1 MATDOM.1007  0         1    NA   240    4.50 18891 20535
 2 CASSYL.1010  0.445     1    NA    67    4.49 18914 20555
 3 SLOBER.110   0.666     1    NA   150    4.51 18897 20543
 4 SLOBER.1106  0         1    NA    50    4.56 18849 20516
 5 CECSCH.1114  1.79      1    NA   228    4.47 18948 20580
 6 PSYBRA.1318  0.447     1    NA    14    4.48 19011 20646
 7 HIRRUG.1403  1.66      1    NA    12.9  4.58 18834 20506
 8 CASSYL.1411 NA         0    NA    NA   NA       NA    NA
 9 SLOBER.1414  1.40      1    NA    16.6  4.57 18952 20622
10 GUAGUI.1419 NA         0    NA    NA   NA       NA    NA
# … with 530 more rows
> 
> # Easy way to separate grouping variables
> tidyr_is_installed <- requireNamespace("tidyr", quietly = TRUE)
> if (tidyr_is_installed) {
+   library(tidyr)
+ 
+   as_tibble(growth) %>%
+     separate(groups, into = c("sp", "quadrat"))
+ }
Error in bquote(on.exit({ : 'where' must be an environment
Calls: %>% ... separate -> <Anonymous> -> eval_bare -> exit_handler -> bquote
Execution halted