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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: coords
> ### Title: Coordinate based cleaning
> ### Aliases: coord_impossible coord_incomplete coord_pol_centroids
> ###   coord_unlikely coord_within coords
> 
> ### ** Examples
> 
> df <- sample_data_1
> 
> # Remove impossible coordinates
> NROW(df)
[1] 1500
> df[1, "latitude"] <- 170
> df <- dframe(df) %>% coord_impossible()
Assuming 'latitude' is latitude
Assuming 'longitude' is longitude
> NROW(df)
[1] 1499
> attr(df, "coord_impossible")
<scrubr dframe>
Size: 1 X 5
Lat/Lon vars: latitude/longitude

              name longitude latitude                date        key
             (chr)     (dbl)    (dbl)              (time)      (int)
1 Ursus americanus -79.68283      170 2015-01-14 16:36:45 1065590124
> 
> # Remove incomplete cases
> NROW(df)
[1] 1499
> df_inc <- dframe(df) %>% coord_incomplete()
Assuming 'latitude' is latitude
Assuming 'longitude' is longitude
> NROW(df_inc)
[1] 1305
> attr(df_inc, "coord_incomplete")
<scrubr dframe>
Size: 194 X 5
Lat/Lon vars: latitude/longitude

    name longitude latitude   date   key
   (chr)     (dbl)    (dbl) (time) (int)
1     NA        NA       NA   <NA>    NA
2     NA        NA       NA   <NA>    NA
3     NA        NA       NA   <NA>    NA
4     NA        NA       NA   <NA>    NA
5     NA        NA       NA   <NA>    NA
6     NA        NA       NA   <NA>    NA
7     NA        NA       NA   <NA>    NA
8     NA        NA       NA   <NA>    NA
9     NA        NA       NA   <NA>    NA
10    NA        NA       NA   <NA>    NA
..   ...       ...      ...    ...   ...
> 
> # Remove unlikely points
> NROW(df)
[1] 1499
> df_unlikely <- dframe(df) %>% coord_unlikely()
Assuming 'latitude' is latitude
Assuming 'longitude' is longitude
> NROW(df_unlikely)
[1] 1487
> attr(df_unlikely, "coord_unlikely")
<scrubr dframe>
Size: 12 X 5
Lat/Lon vars: latitude/longitude

                 name longitude latitude                date        key
                (chr)     (dbl)    (dbl)              (time)      (int)
1  Accipiter striatus         0        0 2014-12-31 23:00:00 1064538129
2  Accipiter striatus         0        0 2014-11-30 23:00:00 1064538169
3  Rubus occidentalis         0        0 1995-06-08 22:00:00 1135823899
4  Rubus occidentalis         0        0 1983-12-08 00:00:00 1045530058
5  Rubus occidentalis         0        0 1959-12-07 00:00:00 1045530087
6  Rubus occidentalis         0        0 1950-12-06 00:00:00 1020503417
7  Rubus occidentalis         0        0 1948-12-01 00:00:00 1020503422
8  Rubus occidentalis         0        0 1946-12-01 00:00:00 1020503459
9  Rubus occidentalis         0        0 1946-12-01 00:00:00 1020503400
10 Rubus occidentalis         0        0 1946-12-01 00:00:00 1020503443
..                ...       ...      ...                 ...        ...
> 
> # Remove points not within correct political borders
> if (requireNamespace("rgbif", quietly = TRUE)) {
+    library("rgbif")
+    wkt <- 'POLYGON((30.1 10.1, 10 20, 20 40, 40 40, 30.1 10.1))'
+    res <- rgbif::occ_data(geometry = wkt, limit=100)$data
+ } else {
+    res <- sample_data_4
+ }
Error: 500 - Server error
Execution halted