Running ‘test_enforce_xy.R’ [1s/1s]
  Comparing ‘test_enforce_xy.Rout’ to ‘test_enforce_xy.Rout.save’ ... OK
  Running ‘test_proj.R’ [2s/2s]
  Running ‘tests.R’ [2s/2s]
  Comparing ‘tests.Rout’ to ‘tests.Rout.save’ ...31d30
< 3: In CRS(c(p4s)) : sf required for evolution_status==2L
  Running ‘tripup.R’ [9s/11s]
  Comparing ‘tripup.Rout’ to ‘tripup.Rout.save’ ... OK
Running the tests in ‘tests/test_proj.R’ failed.
Complete output:
  > suppressPackageStartupMessages(library(rgdal))
  > set_thin_PROJ6_warnings(TRUE)
  > data(state)
  > xy <- cbind(state.center$x, state.center$y)
  > res <- project(xy, "+proj=lcc +lat_1=48 +lat_2=33 +lon_0=-100 +ellps=GRS80")
  Warning message:
  PROJ support is provided by the sf and terra packages among others 
  > res1 <- project(res, "+proj=lcc +lat_1=48 +lat_2=33 +lon_0=-100 +ellps=GRS80",
  +  inv=TRUE)
  Warning messages:
  1: PROJ support is provided by the sf and terra packages among others 
  2: PROJ support is provided by the sf and terra packages among others 
  > stopifnot(isTRUE(all.equal(res1, xy)))
  > states <- data.frame(state.x77, state.center)
  > states <- states[states$x > -121,]
  > coordinates(states) <- c("x", "y")
  > proj4string(states) <- CRS("+proj=longlat +ellps=clrk66")
  Warning message:
  In CRS("+proj=longlat +ellps=clrk66") :
    sf required for evolution_status==2L
  > state.ll83 <- spTransform(states, CRS("+proj=longlat +ellps=GRS80"))
  Warning messages:
  1: In CRS("+proj=longlat +ellps=GRS80") :
    sf required for evolution_status==2L
  2: In spTransform(xSP, CRSobj, ...) :
    NULL source CRS comment, falling back to PROJ string
  3: In spTransform(xSP, CRSobj, ...) :
    NULL target CRS comment, falling back to PROJ string
  4: In is.projected(p4str) : Package sf not available
  > state.ll <- spTransform(state.ll83, CRS("+proj=longlat +ellps=clrk66"))
  Warning messages:
  1: In spTransform(xSP, CRSobj, ...) :
    NULL source CRS comment, falling back to PROJ string
  2: In spTransform(xSP, CRSobj, ...) :
    NULL target CRS comment, falling back to PROJ string
  3: In is.projected(p4str) : Package sf not available
  > stopifnot(isTRUE(all.equal(coordinates(states), coordinates(state.ll))))
  > broke_proj <- FALSE
  > pv <- .Call("PROJ4VersionInfo", PACKAGE="rgdal")[[2]]
  > # https://github.com/OSGeo/PROJ/issues/1525
  > if (pv >= 600 && pv < 620) broke_proj <- TRUE
  > if (!broke_proj) {
  + (crds <- matrix(data=c(9.05, 48.52), ncol=2))
  + (a <- project(crds, paste("+proj=ob_tran +o_proj=longlat",
  +  "+o_lon_p=-162 +o_lat_p=39.25 +lon_0=180 +ellps=sphere +no_defs"),
  +  use_ob_tran=TRUE, verbose=TRUE))
  + stopifnot(isTRUE(all.equal(a, matrix(c(-5.917698, -1.87195), ncol=2), tolerance=.Machine$double.eps ^ 0.25)))
  + (a1 <- project(a, paste("+proj=ob_tran +o_proj=longlat",
  +  "+o_lon_p=-162 +o_lat_p=39.25 +lon_0=180 +ellps=sphere +no_defs"),
  +  inv=TRUE, use_ob_tran=TRUE, verbose=TRUE))
  + stopifnot(isTRUE(all.equal(a1, crds, tolerance=.Machine$double.eps ^ 0.25)))
  + spPoint <- SpatialPoints(coords=crds,
  +  proj4string=CRS("+proj=longlat +ellps=sphere +no_defs"))
  + a <- spTransform(spPoint, CRS(paste("+proj=ob_tran +o_proj=longlat",
  +  "+o_lon_p=-162 +o_lat_p=39.25 +lon_0=180 +ellps=sphere +no_defs")),
  +  use_ob_tran=TRUE)
  + stopifnot(isTRUE(all.equal(unname(coordinates(a)), matrix(c(-5.917698, -1.87195), ncol=2), tolerance=.Machine$double.eps ^ 0.25)))
  + a1 <- spTransform(a, CRS("+proj=longlat +ellps=sphere +no_defs"),
  +  use_ob_tran=TRUE)
  + stopifnot(isTRUE(all.equal(unname(coordinates(a1)), unname(coordinates(spPoint)), tolerance=.Machine$double.eps ^ 0.25)))
  + }
  +proj=pipeline +step +proj=unitconvert +xy_in=deg +xy_out=rad +step
  +inv +proj=ob_tran +o_proj=longlat +o_lon_p=-162 +o_lat_p=39.25
  +lon_0=180 +ellps=sphere +step +proj=unitconvert +xy_in=rad +xy_out=deg
  +proj=pipeline +step +proj=unitconvert +xy_in=deg +xy_out=rad +step
  +proj=ob_tran +o_proj=longlat +o_lon_p=-162 +o_lat_p=39.25 +lon_0=180
  +ellps=sphere +step +proj=unitconvert +xy_in=rad +xy_out=deg
  There were 12 warnings (use warnings() to see them)
  > sp <- SpatialPoints(matrix(c(1, 1), nrow=1), proj4string=CRS("+init=epsg:4326"))
  Warning message:
  In CRS("+init=epsg:4326") : sf required for evolution_status==2L
  > sp.tr <- spTransform(sp, CRS("+init=epsg:3857"))
  Error in spTransform(sp, CRS("+init=epsg:3857")) : 
    source crs creation failed: Invalid PROJ string syntax
  Calls: spTransform -> spTransform
  In addition: Warning messages:
  1: In CRS("+init=epsg:3857") : sf required for evolution_status==2L
  2: In spTransform(sp, CRS("+init=epsg:3857")) :
    NULL source CRS comment, falling back to PROJ string
  3: In spTransform(sp, CRS("+init=epsg:3857")) :
    +init dropped in PROJ string
  4: In spTransform(sp, CRS("+init=epsg:3857")) :
    NULL target CRS comment, falling back to PROJ string
  5: In spTransform(sp, CRS("+init=epsg:3857")) :
    +init dropped in PROJ string
  6: In is.projected(p4str) : Package sf not available
  7: PROJ support is provided by the sf and terra packages among others 
  Execution halted