Running 'aggregate.R' [3s]
  Comparing 'aggregate.Rout' to 'aggregate.Rout.save' ...4c4
< Linking to GEOS 3.10.2, GDAL 3.4.1, PROJ 7.2.1; sf_use_s2() is TRUE
---
> Linking to GEOS 3.10.2, GDAL 3.4.3, PROJ 8.2.0; sf_use_s2() is TRUE
  Running 'cast.R' [4s]
  Comparing 'cast.Rout' to 'cast.Rout.save' ... OK
  Running 'crs.R' [3s]
  Comparing 'crs.Rout' to 'crs.Rout.save' ...81c81,117
<  
---
> GEOGCRS["WGS 84",
>     ENSEMBLE["World Geodetic System 1984 ensemble",
>         MEMBER["World Geodetic System 1984 (Transit)",
>             ID["EPSG",1166]],
>         MEMBER["World Geodetic System 1984 (G730)",
>             ID["EPSG",1152]],
>         MEMBER["World Geodetic System 1984 (G873)",
>             ID["EPSG",1153]],
>         MEMBER["World Geodetic System 1984 (G1150)",
>             ID["EPSG",1154]],
>         MEMBER["World Geodetic System 1984 (G1674)",
>             ID["EPSG",1155]],
>         MEMBER["World Geodetic System 1984 (G1762)",
>             ID["EPSG",1156]],
>         MEMBER["World Geodetic System 1984 (G2139)",
>             ID["EPSG",1309]],
>         ELLIPSOID["WGS 84",6378137,298.257223563,
>             LENGTHUNIT["metre",1],
>             ID["EPSG",7030]],
>         ENSEMBLEACCURACY[2.0],
>         ID["EPSG",6326]],
>     PRIMEM["Greenwich",0,
>         ANGLEUNIT["degree",0.0174532925199433],
>         ID["EPSG",8901]],
>     CS[ellipsoidal,2],
>         AXIS["longitude",east,
>             ORDER[1],
>             ANGLEUNIT["degree",0.0174532925199433,
>                 ID["EPSG",9122]]],
>         AXIS["latitude",north,
>             ORDER[2],
>             ANGLEUNIT["degree",0.0174532925199433,
>                 ID["EPSG",9122]]],
>     USAGE[
>         SCOPE["unknown"],
>         AREA["World."],
>         BBOX[-90,-180,90,180]]] 
83c119
<   User input: +init=epsg:4326 
---
>   User input: WGS 84 
86c122,136
<     DATUM["World Geodetic System 1984",
---
>     ENSEMBLE["World Geodetic System 1984 ensemble",
>         MEMBER["World Geodetic System 1984 (Transit)",
>             ID["EPSG",1166]],
>         MEMBER["World Geodetic System 1984 (G730)",
>             ID["EPSG",1152]],
>         MEMBER["World Geodetic System 1984 (G873)",
>             ID["EPSG",1153]],
>         MEMBER["World Geodetic System 1984 (G1150)",
>             ID["EPSG",1154]],
>         MEMBER["World Geodetic System 1984 (G1674)",
>             ID["EPSG",1155]],
>         MEMBER["World Geodetic System 1984 (G1762)",
>             ID["EPSG",1156]],
>         MEMBER["World Geodetic System 1984 (G2139)",
>             ID["EPSG",1309]],
88c138,140
<             LENGTHUNIT["metre",1]],
---
>             LENGTHUNIT["metre",1],
>             ID["EPSG",7030]],
>         ENSEMBLEACCURACY[2.0],
107c159,166
<     DATUM["World Geodetic System 1984",
---
>     ENSEMBLE["World Geodetic System 1984 ensemble",
>         MEMBER["World Geodetic System 1984 (Transit)"],
>         MEMBER["World Geodetic System 1984 (G730)"],
>         MEMBER["World Geodetic System 1984 (G873)"],
>         MEMBER["World Geodetic System 1984 (G1150)"],
>         MEMBER["World Geodetic System 1984 (G1674)"],
>         MEMBER["World Geodetic System 1984 (G1762)"],
>         MEMBER["World Geodetic System 1984 (G2139)"],
109c168,169
<             LENGTHUNIT["metre",1]]],
---
>             LENGTHUNIT["metre",1]],
>         ENSEMBLEACCURACY[2.0]],
124,126d183
< Warning message:
< In CPL_crs_from_input(x) :
<   GDAL Message 1: +init=epsg:XXXX syntax is deprecated. It might return a CRS with a non-EPSG compliant axis order.
  Running 'dist.R' [3s]
  Comparing 'dist.Rout' to 'dist.Rout.save' ... OK
  Running 'dplyr.R' [5s]
  Running 'empty.R' [3s]
  Comparing 'empty.Rout' to 'empty.Rout.save' ... OK
  Running 'gdal_geom.R' [5s]
  Comparing 'gdal_geom.Rout' to 'gdal_geom.Rout.save' ...244,248c244,248
< [1,] 1760230516 0.114
< [2,]  946417787 0.061
< [3,] 2202223078 0.143
< [4,] 1074332698 0.070
< [5,] 2352528086 0.153
---
> [1,] 1760244967 0.114
> [2,]  946435667 0.061
> [3,] 2202248253 0.143
> [4,] 1074351919 0.070
> [5,] 2352539533 0.153
  Running 'geos.R' [50s]
  Comparing 'geos.Rout' to 'geos.Rout.save' ...13,22c13,22
<  [1,]      0.00      0.00  25651.99 440561.48 299772.34 361529.73 419671.66
<  [2,]      0.00      0.00      0.00 409429.44 268945.05 332590.52 388545.58
<  [3,]  25651.99      0.00      0.00 367556.52 227018.38 290298.04 346669.14
<  [4,] 440561.48 409429.44 367556.52      0.00  67226.86  45537.62      0.00
<  [5,] 299772.34 268945.05 227018.38  67226.86      0.00      0.00  46527.56
<  [6,] 361529.73 332590.52 290298.04  45537.62      0.00      0.00  30213.17
<  [7,] 419671.66 388545.58 346669.14      0.00  46527.56  30213.17      0.00
<  [8,] 384593.29 354295.06 312351.76  16130.19  11926.86      0.00      0.00
<  [9,] 262353.97 231217.73 189310.73 140455.97      0.00  64606.27 119564.00
< [10,]  71138.53  41943.71      0.00 330752.58 190183.42 252373.26 309863.33
---
>  [1,]      0.00      0.00  25652.53 440561.15 299772.18 361529.53 419671.2
>  [2,]      0.00      0.00      0.00 409428.54 268944.31 332589.77 388544.5
>  [3,]  25652.53      0.00      0.00 367555.48 227017.51 290297.10 346667.9
>  [4,] 440561.15 409428.54 367555.48      0.00  67226.86  45537.55      0.0
>  [5,] 299772.18 268944.31 227017.51  67226.86      0.00      0.00  46527.4
>  [6,] 361529.53 332589.77 290297.10  45537.55      0.00      0.00  30213.0
>  [7,] 419671.16 388544.52 346667.93      0.00  46527.40  30213.00      0.0
>  [8,] 384592.90 354294.11 312350.68  16130.34  11926.81      0.00      0.0
>  [9,] 262354.29 231217.49 189310.35 140455.87      0.00  64606.24 119563.7
> [10,]  71139.29  41943.83      0.00 330751.39 190182.39 252372.06 309862.0
24,33c24,33
<  [1,] 384593.29 262353.97  71138.53
<  [2,] 354295.06 231217.73  41943.71
<  [3,] 312351.76 189310.73      0.00
<  [4,]  16130.19 140455.97 330752.58
<  [5,]  11926.86      0.00 190183.42
<  [6,]      0.00  64606.27 252373.26
<  [7,]      0.00 119564.00 309863.33
<  [8,]      0.00  85533.33 275391.07
<  [9,]  85533.33      0.00 152489.45
< [10,] 275391.07 152489.45      0.00
---
>  [1,] 384592.90 262354.29  71139.29
>  [2,] 354294.11 231217.49  41943.83
>  [3,] 312350.68 189310.35      0.00
>  [4,]  16130.34 140455.87 330751.39
>  [5,]  11926.81      0.00 190182.39
>  [6,]      0.00  64606.24 252372.06
>  [7,]      0.00 119563.73 309861.97
>  [8,]      0.00  85533.12 275389.78
>  [9,]  85533.12      0.00 152488.92
> [10,] 275389.78 152488.92      0.00
264,265c264
< 1 2 3 
< 0 0 0 
---
> [1] 0 0 0
273,274c272
<        1        2        3 
< 144589.5 142873.3 287462.8 
---
> [1] 144589.5 142873.3 287462.8
  Running 'graticule.R' [6s]
  Comparing 'graticule.Rout' to 'graticule.Rout.save' ... OK
  Running 'grid.R' [4s]
  Comparing 'grid.Rout' to 'grid.Rout.save' ... OK
  Running 'maps.R' [5s]
  Comparing 'maps.Rout' to 'maps.Rout.save' ... OK
  Running 'plot.R' [16s]
  Comparing 'plot.Rout' to 'plot.Rout.save' ... OK
  Running 'read.R' [6s]
  Comparing 'read.Rout' to 'read.Rout.save' ...289c289
< 2 POINT (367470.5 4962415)
---
> 2 POINT (367470.5 4962414)
334,335c334
<   `d:\RCompile\CRANpkg\local\4.1\sf.Rcheck\tests_i386\tst__.gpkg' 
<   using driver `GPKG'
---
>   `/home/edzer/git/sf.Rcheck/tests/tst__.gpkg' using driver `GPKG'
  Running 'roundtrip.R' [4s]
  Comparing 'roundtrip.Rout' to 'roundtrip.Rout.save' ... OK
  Running 's2.R' [5s]
  Comparing 's2.Rout' to 's2.Rout.save' ...4c4
< Linking to GEOS 3.10.2, GDAL 3.4.1, PROJ 7.2.1; sf_use_s2() is TRUE
---
> Linking to GEOS 3.10.2, GDAL 3.4.3, PROJ 8.2.0; sf_use_s2() is TRUE
  Running 'sample.R' [3s]
  Comparing 'sample.Rout' to 'sample.Rout.save' ... OK
  Running 'sfc.R' [33s]
  Comparing 'sfc.Rout' to 'sfc.Rout.save' ...335c335
< "3.10.2"  "3.4.1"  "7.2.1" 
---
> "3.10.2"  "3.4.3"  "8.2.1" 
616c616
< Bounding box:  xmin: 406265 ymin: 48359.7 xmax: 3052877 ymax: 1044143
---
> Bounding box:  xmin: 406262.2 ymin: 48374.87 xmax: 3052887 ymax: 1044158
631,640c631,640
< 1       10  1364     0      19  A  4 #fb80724d MULTIPOLYGON (((1270813 913...
< 2       10   542     3      12  A  4 #fb80724d MULTIPOLYGON (((1340553 959...
< 3      208  3616     6     260  A  5 #80b1d34d MULTIPOLYGON (((1570586 910...
< 4      123   830     2     145  A 10 #bc80bd4d MULTIPOLYGON (((2881206 948...
< 5     1066  1606     3    1197  A  8 #fccde54d MULTIPOLYGON (((2525700 911...
< 6      954  1838     5    1237  A  9 #d9d9d94d MULTIPOLYGON (((2665112 911...
< 7      115   350     2     139  A 10 #bc80bd4d MULTIPOLYGON (((2881206 948...
< 8      254   594     2     371  A  9 #d9d9d94d MULTIPOLYGON (((2717988 951...
< 9      748  1190     2     844  A  8 #fccde54d MULTIPOLYGON (((2203888 914...
< 10     160  2038     5     176  A  5 #80b1d34d MULTIPOLYGON (((1697618 911...
---
> 1       10  1364     0      19  A  4 #fb80724d MULTIPOLYGON (((1270814 913...
> 2       10   542     3      12  A  4 #fb80724d MULTIPOLYGON (((1340555 959...
> 3      208  3616     6     260  A  5 #80b1d34d MULTIPOLYGON (((1570591 910...
> 4      123   830     2     145  A 10 #bc80bd4d MULTIPOLYGON (((2881208 948...
> 5     1066  1606     3    1197  A  8 #fccde54d MULTIPOLYGON (((2525701 911...
> 6      954  1838     5    1237  A  9 #d9d9d94d MULTIPOLYGON (((2665113 911...
> 7      115   350     2     139  A 10 #bc80bd4d MULTIPOLYGON (((2881208 948...
> 8      254   594     2     371  A  9 #d9d9d94d MULTIPOLYGON (((2717989 951...
> 9      748  1190     2     844  A  8 #fccde54d MULTIPOLYGON (((2203890 914...
> 10     160  2038     5     176  A  5 #80b1d34d MULTIPOLYGON (((1697624 911...
723c723
< Bounding box:  xmin: 1216510 ymin: 935852 xmax: 1428880 ymax: 1031490
---
> Bounding box:  xmin: 1216510 ymin: 935867 xmax: 1428880 ymax: 1031510
726,730c726,730
< POINT (1264558 935852)
< POINT (1256623 949369)
< POINT (1222665 972624)
< POINT (1333528 968263)
< POINT (1310837 958630)
---
> POINT (1264558 935867)
> POINT (1256623 949384)
> POINT (1222665 972639)
> POINT (1333530 968278)
> POINT (1310838 958645)
740c740
< Bounding box:  xmin: -81.6893 ymin: 36.2491 xmax: -80.914 ymax: 36.5726
---
> Bounding box:  xmin: -81.6893 ymin: 36.2492 xmax: -80.914 ymax: 36.5726
743c743
< MULTIPOINT ((-81.2629 36.4076), (-81.1375 36.56...
---
> MULTIPOINT ((-81.2629 36.4076), (-81.1374 36.56...
769,774c769,774
< * `AREA` -> `AREA...1`
< * `PERIMETER` -> `PERIMETER...2`
< * `CNTY_` -> `CNTY_...3`
< * `AREA` -> `AREA...16`
< * `PERIMETER` -> `PERIMETER...17`
< * `CNTY_` -> `CNTY_...18`
---
> â¢ `AREA` -> `AREA...1`
> â¢ `PERIMETER` -> `PERIMETER...2`
> â¢ `CNTY_` -> `CNTY_...3`
> â¢ `AREA` -> `AREA...16`
> â¢ `PERIMETER` -> `PERIMETER...17`
> â¢ `CNTY_` -> `CNTY_...18`
824a825,827
> Warning message:
> In showSRID(uprojargs, format = "PROJ", multiline = "NO", prefer_proj = prefer_proj) :
>   Discarded datum Amersfoort in Proj4 definition
  Running 'sfg.R' [2s]
  Comparing 'sfg.Rout' to 'sfg.Rout.save' ... OK
  Running 'spatstat.R' [9s]
  Comparing 'spatstat.Rout' to 'spatstat.Rout.save' ...114c114
< spatstat.random 3.0-1
---
> spatstat.random 3.0-0
118c118
< Bounding box:  xmin: 123829.8 ymin: 14740.06 xmax: 930518.6 ymax: 318255.5
---
> Bounding box:  xmin: 123829 ymin: 14744.69 xmax: 930521.8 ymax: 318259.9
122,131c122,131
< 1  window MULTIPOLYGON (((886135.8 31...
< 2   point      POINT (339121.1 257811.6)
< 3   point      POINT (827440.4 246568.3)
< 4   point      POINT (451339.2 207943.6)
< 5   point      POINT (268749.7 203323.4)
< 6   point      POINT (516676.5 198556.1)
< 7   point        POINT (692366 238643.1)
< 8   point      POINT (843278.5 287241.6)
< 9   point      POINT (648477.7 235466.6)
< 10  point        POINT (852593 267248.3)
---
> 1  window MULTIPOLYGON (((886136 3141...
> 2   point      POINT (339121.3 257815.9)
> 3   point      POINT (827443.1 246572.7)
> 4   point          POINT (451340 207948)
> 5   point      POINT (268749.6 203327.8)
> 6   point      POINT (516677.7 198560.6)
> 7   point        POINT (692368 238647.5)
> 8   point        POINT (843281.2 287246)
> 9   point        POINT (648479.4 235471)
> 10  point      POINT (852595.8 267252.6)
  Running 'stars.R' [8s]
  Comparing 'stars.Rout' to 'stars.Rout.save' ...141,143c141,143
<   from  to   offset      delta refsys point x/y
< x    1 461 -84.3239  0.0192484  NAD27 FALSE [x]
< y    1 141  36.5896 -0.0192484  NAD27 FALSE [y]
---
>   from  to   offset      delta refsys point values x/y
> x    1 461 -84.3239  0.0192484  NAD27 FALSE   NULL [x]
> y    1 141  36.5896 -0.0192484  NAD27 FALSE   NULL [y]
  Running 'testthat.R' [31s]
  Running 'units.R' [4s]
  Comparing 'units.Rout' to 'units.Rout.save' ... OK
  Running 'wkb.R' [3s]
  Comparing 'wkb.Rout' to 'wkb.Rout.save' ... OK
Running the tests in 'tests/dplyr.R' failed.
Complete output:
  > suppressPackageStartupMessages(library(sf))
  > 
  > if (require(dplyr, quietly = TRUE)) {
  +  options(dplyr.summarise.inform=FALSE)
  +  read_sf(system.file("shape/nc.shp", package="sf"), quiet = TRUE) %>%
  + 	st_transform(3857) -> nc
  +  nc %>% filter(AREA > .1) %>% plot()
  + 
  + # plot 10 smallest counties in grey:
  +  nc %>% 
  +    select(BIR74, geometry) %>% 
  +    plot()
  + 
  +  nc %>% 
  +   select(AREA, geometry) %>% 
  +   arrange(AREA) %>% 
  +   slice(1:10) %>% 
  +   plot(add = TRUE, col = 'grey', main ="")
  + 
  + # select: check both when geometry is part of the selection, and when not:
  +  nc %>% select(SID74, SID79) %>% names()
  +  nc %>% select(SID74, SID79, geometry) %>% names()
  +  nc %>% select(SID74, SID79) %>% class()
  +  nc %>% select(SID74, SID79, geometry) %>% class()
  + 
  + # group_by:
  +  nc$area_cl = cut(nc$AREA, c(0, .1, .12, .15, .25))
  +  nc %>% group_by(area_cl) %>% class()
  + 
  + # mutate:
  +  nc2 <- nc %>% mutate(area10 = AREA/10)
  + 
  + # transmute:
  +  nc %>% transmute(AREA = AREA/10, geometry = geometry) %>% class()
  +  nc %>% transmute(AREA = AREA/10) %>% class()
  + 
  + # rename:
  +  nc2 <- nc %>% rename(area = AREA)
  + 
  + # distinct:
  +  nc[c(1:100,1:10),] %>% distinct() %>% nrow()
  + 
  + # summarize:
  +  nc$area_cl = cut(nc$AREA, c(0, .1, .12, .15, .25))
  +  nc.g <- nc %>% group_by(area_cl)
  +  nc.g %>% summarise(mean(AREA))
  +  nc.g %>% summarize(mean(AREA)) %>% plot(col = 3:6/7)
  + 
  +  library(tidyr)
  + 
  + # time-wide to long table, using tidyr::gather
  + # stack the two SID columns for the July 1, 1974 - June 30, 1978 and July 1, 1979 - June 30, 1984 periods
  + # (see https://cran.r-project.org/web/packages/spdep/vignettes/sids.pdf)
  +  nc %>% select(SID74, SID79, geometry) %>% gather("VAR", "SID", -geometry) %>% summary()
  + 
  + # spread:
  +  nc$row = 1:100
  +  nc.g <- nc %>% select(SID74, SID79, row) %>% gather("VAR", "SID", -row, -geometry)
  +  nc.g %>% tail()
  +  nc.g %>% spread(VAR, SID) %>% head()
  +  nc %>% select(SID74, SID79, geometry, row) %>% gather("VAR", "SID", -geometry, -row) %>% spread(VAR, SID) %>% head()
  + 
  + # test st_set_crs in pipe:
  +  sfc = st_sfc(st_point(c(0,0)), st_point(c(1,1)))
  +  x <- sfc %>% st_set_crs(4326) %>% st_transform(3857)
  +  x
  + 
  + read_sf(system.file("shape/nc.shp", package="sf"), quiet = TRUE) %>%
  + 	st_transform(3857) -> nc
  +  nc.merc <- st_transform(nc, 32119) # NC State Plane
  +  suppressPackageStartupMessages(library(units))
  +  install_unit("person")
  +  person = as_units("person")
  +  nc.merc <- nc.merc %>% mutate(area = st_area(nc.merc), dens = BIR74 * person / area)
  + 
  + # summary(nc.merc$dens) # requires units 0.4-2
  +  nc.merc$area_cl <- cut(nc$AREA, c(0, .1, .12, .15, .25))
  +  nc.grp <- nc.merc %>% group_by(area_cl)
  + 
  +  out <- nc.grp %>% summarise(A = sum(area), pop = sum(dens * area), 
  + 	new_dens = sum(dens * area)/sum(area)) 
  + 
  + # mean densities depend on grouping:
  +  nc.merc %>% summarize(mean(dens))
  +  out %>% summarise(mean(new_dens))
  + 
  + # total densities don't:
  +  nc.merc %>% summarise(sum(area * dens))
  +  out %>% summarise(sum(A * new_dens))
  + 
  +  conn = system.file("gpkg/nc.gpkg", package = "sf")
  + 
  + if (require(DBI, quietly = TRUE) && require(RSQLite, quietly = TRUE)) {
  +  con = dbConnect(SQLite(), dbname = system.file("gpkg/nc.gpkg", package = "sf"))
  +  dbReadTable(con, "nc.gpkg") %>% filter(AREA > 0.2) %>% collect %>% st_sf
  + 
  + # nest:
  +  storms.sf = st_as_sf(storms, coords = c("long", "lat"), crs = 4326)
  +  x <- storms.sf %>% group_by(name, year) %>% nest
  + 
  +  nrow(distinct(nc[c(1,1,1,2,2,3:100),]))
  + 
  + # set.seed(1331)
  +  nc$gp <- sample(10, 100, replace=TRUE)
  + # Get centroid of each group of polygons; https://github.com/r-spatial/sf/issues/969
  +  nc_gp_cent <- nc %>%
  +                 group_by(gp) %>%
  +                 group_map(st_area)
  + 
  +  nc %>% st_filter(nc[1,]) %>% nrow
  + } # DBI & SQLITE
  + } # dplyr
  
  Attaching package: 'dplyr'
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  Error: package or namespace load failed for 'tidyr' in library.dynam(lib, package, package.lib):
   DLL 'purrr' not found: maybe not installed for this architecture?
  In addition: Warning message:
  plotting the first 10 out of 14 attributes; use max.plot = 14 to plot all 
  Execution halted
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > if (require(testthat, quietly = TRUE)) {
  +  suppressPackageStartupMessages(library(sf))
  +  test_check("sf")
  + }
  Coordinate Reference System:
    User input: EPSG:4326 
    wkt:
  GEOGCRS["WGS 84",
      DATUM["World Geodetic System 1984",
          ELLIPSOID["WGS 84",6378137,298.257223563,
              LENGTHUNIT["metre",1]]],
      PRIMEM["Greenwich",0,
          ANGLEUNIT["degree",0.0174532925199433]],
      CS[ellipsoidal,2],
          AXIS["geodetic latitude (Lat)",north,
              ORDER[1],
              ANGLEUNIT["degree",0.0174532925199433]],
          AXIS["geodetic longitude (Lon)",east,
              ORDER[2],
              ANGLEUNIT["degree",0.0174532925199433]],
      USAGE[
          SCOPE["Horizontal component of 3D system."],
          AREA["World."],
          BBOX[-90,-180,90,180]],
      ID["EPSG",4326]]
  Coordinate Reference System:
    No user input
    wkt:
  GEOGCRS["WGS 84",
      DATUM["World Geodetic System 1984",
          ELLIPSOID["WGS 84",6378137,298.257223563,
              LENGTHUNIT["metre",1]]],
      PRIMEM["Greenwich",0,
          ANGLEUNIT["degree",0.0174532925199433]],
      CS[ellipsoidal,2],
          AXIS["geodetic latitude (Lat)",north,
              ORDER[1],
              ANGLEUNIT["degree",0.0174532925199433]],
          AXIS["geodetic longitude (Lon)",east,
              ORDER[2],
              ANGLEUNIT["degree",0.0174532925199433]],
      USAGE[
          SCOPE["Horizontal component of 3D system."],
          AREA["World."],
          BBOX[-90,-180,90,180]],
      ID["EPSG",4326]]
  Cannot open layer foo
  Reading layer `nospatial' from data source 
    `D:\temp\RtmpQROi8X\RLIBS_16cd4423f38d\sf\gpkg\nospatial.gpkg' 
    using driver `GPKG'
  Reading layer `nospatial' from data source 
    `D:\temp\RtmpQROi8X\RLIBS_16cd4423f38d\sf\gpkg\nospatial.gpkg' 
    using driver `GPKG'
  OGR: Unsupported geometry type
  Failed to create feature 1 in x
  Failed to create feature 1 in x
  [ FAIL 3 | WARN 11 | SKIP 63 | PASS 705 ]
  
  == Skipped tests ===============================================================
  * !sf_use_s2() is not TRUE (1)
  * On Windows (1)
  * Sys.getenv("USER") %in% c("edzer", "travis") is not TRUE (3)
  * could not connect to postgis database (46)
  * empty test (6)
  * sf_extSoftVersion()[["GDAL"]] < "2.5.0" && sf_extSoftVersion()[["proj.4"]] <  (1)
  * sf_extSoftVersion()[["GDAL"]] < "2.5.0" is not TRUE (1)
  * sf_extSoftVersion()[["proj.4"]] < "6.0.0" is not TRUE (3)
  * tidyr cannot be loaded (1)
  
  == Failed tests ================================================================
  -- Error ('test_tidy.R:28'): separate and unite work ---------------------------
  Error in `separate(., CNTY_ID, c("a", "b"), sep = 2)`: could not find function "separate"
  Backtrace:
      x
   1. +-testthat::expect_true(...) at test_tidy.R:28:2
   2. | \-testthat::quasi_label(enquo(object), label, arg = "object")
   3. |   \-rlang::eval_bare(expr, quo_get_env(quo))
   4. +-nc %>% separate(CNTY_ID, c("a", "b"), sep = 2) %>% ...
   5. \-base::inherits(., "sf")
  -- Error ('test_tidy.R:42'): separate_rows work --------------------------------
  Error in `separate_rows(., y, convert = TRUE)`: could not find function "separate_rows"
  Backtrace:
      x
   1. +-testthat::expect_true(...) at test_tidy.R:42:2
   2. | \-testthat::quasi_label(enquo(object), label, arg = "object")
   3. |   \-rlang::eval_bare(expr, quo_get_env(quo))
   4. +-d %>% separate_rows(y, convert = TRUE) %>% inherits("sf")
   5. \-base::inherits(., "sf")
  -- Error ('test_tidy.R:84'): nest() works --------------------------------------
  Error in `nest(.)`: could not find function "nest"
  Backtrace:
      x
   1. \-d %>% group_by(a) %>% nest() at test_tidy.R:84:8
  
  [ FAIL 3 | WARN 11 | SKIP 63 | PASS 705 ]
  Error: Test failures
  Execution halted