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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: .find
> ### Title: Determine row or column on the fly
> ### Aliases: .find
> 
> ### ** Examples
> 
> # use regular expressions to find cell positions
> (input <- tabs2shift$clusters_messy)
# A tibble: 13 × 7
   X1          X2        X3         X4          X5        X6         X7    
   <chr>       <chr>     <chr>      <chr>       <chr>     <chr>      <chr> 
 1 commodities harvested production <NA>        <NA>      <NA>       <NA>  
 2 unit 1      <NA>      <NA>       <NA>        <NA>      <NA>       <NA>  
 3 soybean     1111      1112       year 1      <NA>      <NA>       <NA>  
 4 maize       1121      1122       year 1      <NA>      <NA>       <NA>  
 5 soybean     1211      1212       year 2      <NA>      <NA>       <NA>  
 6 maize       1221      1222       year 2      <NA>      <NA>       <NA>  
 7 <NA>        <NA>      <NA>       <NA>        <NA>      <NA>       <NA>  
 8 commodities harvested production commodities harvested production <NA>  
 9 unit 2      <NA>      <NA>       unit 3      <NA>      <NA>       <NA>  
10 soybean     2111      2112       soybean     3111      3112       year 1
11 maize       2121      2122       maize       3121      3122       year 1
12 soybean     2211      2212       soybean     3211      3212       year 2
13 maize       2221      2222       maize       3221      3222       year 2
> 
> schema <- setCluster(id = "territories",
+                      left = .find(pattern = "comm*"), top = .find(pattern = "comm*")) %>%
+   setIDVar(name = "territories", columns = c(1, 1, 4), rows = c(2, 9, 9)) %>%
+   setIDVar(name = "year", columns = 4, rows = c(3:6), distinct = TRUE) %>%
+   setIDVar(name = "commodities", columns = c(1, 1, 4)) %>%
+   setObsVar(name = "harvested", columns = c(2, 2, 5)) %>%
+   setObsVar(name = "production", columns = c(3, 3, 6))
> 
> schema
  1 cluster
    origin : list(by = ~"comm*", col = NULL, row = NULL, invert = FALSE, relative = FALSE)|list(by = ~"comm*", col = NULL, row = NULL, invert = FALSE, relative = FALSE)  (row|col)
    id     : territories

   variable      type       row    col    dist 
  ------------- ---------- ------ ------ ------  
   territories   id         2, 9   1, 4   F  
   year          id         3:6    4      T  
   commodities   id                1, 4   F  
   harvested     observed          2, 5   F  
   production    observed          3, 6   F  
> validateSchema(schema = schema, input = input)
Error in vectbl_assign(x[[j]], i, recycled_value[[j]]) : 
  DLL requires the use of native symbols
Calls: validateSchema ... tbl_subassign_row -> withCallingHandlers -> vectbl_assign
Execution halted