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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: project
> ### Title: Projection of coordinate matrices
> ### Aliases: project
> ### Keywords: spatial
> 
> ### ** Examples
> 
> data(state)
> res <- project(cbind(state.center$x, state.center$y),
+  "+proj=lcc +lat_1=48 +lat_2=33 +lon_0=-100 +ellps=WGS84")
> res1 <- project(res, "+proj=lcc +lat_1=48 +lat_2=33 +lon_0=-100 +ellps=WGS84",
+  inv=TRUE)
> summary(res1 - cbind(state.center$x, state.center$y))
       V1                   V2            
 Min.   :-1.421e-14   Min.   :-1.764e-11  
 1st Qu.: 0.000e+00   1st Qu.:-3.553e-13  
 Median : 0.000e+00   Median :-2.061e-13  
 Mean   :-1.705e-15   Mean   :-1.172e-12  
 3rd Qu.: 0.000e+00   3rd Qu.:-1.297e-13  
 Max.   : 0.000e+00   Max.   :-6.395e-14  
> plot(cbind(state.center$x, state.center$y), asp=1, type="n")
> text(cbind(state.center$x, state.center$y), state.abb)
> plot(res, asp=1, type="n")
> text(res, state.abb)
> 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)
> a
          [,1]     [,2]
[1,] -5.917698 -1.87195
> #should be (-5.917698, -1.87195)
> 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)
     [,1]  [,2]
[1,] 9.05 48.52
> #added after posting by Martin Ivanov
> #
> getPROJ4VersionInfo()
[1] "Rel. 6.2.1, November 1st, 2019, [PJ_VERSION: 621]"
> # Test for UTM == TMERC (<= 4.9.2) or UTM == ETMERC (> 4.9.2)
> nhh <- matrix(c(5.304234, 60.422311), ncol=2)
> nhh_utm_32N_P4 <- project(nhh, "+init=epsg:3044")
> nhh_tmerc_P4 <- project(nhh, paste("+proj=tmerc +k=0.9996 +lon_0=9",
+  "+x_0=500000 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs"))
> nhh_etmerc_P4 <- project(nhh, paste("+proj=etmerc +k=0.9996 +lon_0=9",
+  "+x_0=500000 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs"))
> all.equal(nhh_utm_32N_P4, nhh_tmerc_P4, tolerance=1e-9, scale=1)
[1] TRUE
> # UTM == TMERC: PROJ4 <=4.9.2
> all.equal(nhh_utm_32N_P4, nhh_etmerc_P4, tolerance=1e-9, scale=1)
[1] TRUE
> # UTM == ETMERC: PROJ4 > 4.9.2
> unis <- matrix(c(15.653453, 78.222504), ncol=2)
> unis_utm_33N_P4 <- project(unis, "+init=epsg:3045")
> unis_tmerc_P4 <- project(unis, paste("+proj=tmerc +k=0.9996 +lon_0=15",
+  "+x_0=500000 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs"))
> unis_etmerc_P4 <- project(unis, paste("+proj=etmerc +k=0.9996 +lon_0=15",
+  "+x_0=500000 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs"))
> all.equal(unis_utm_33N_P4, unis_tmerc_P4, tolerance=1e-9, scale=1)
[1] TRUE
> # UTM == TMERC: PROJ4 <=4.9.2
> all.equal(unis_utm_33N_P4, unis_etmerc_P4, tolerance=1e-9, scale=1)
[1] TRUE
> # UTM == ETMERC: PROJ4 > 4.9.2
> # available projections and their inverses if provided
> # For >=4.9.3 returns non-finite points rather than needing crash protection
> getPROJ4VersionInfo()
[1] "Rel. 6.2.1, November 1st, 2019, [PJ_VERSION: 621]"
> projs <- as.character(projInfo()$name)
> res <- logical(length(projs))
> names(res) <- projs
> msgs <- character(length(projs))
> names(msgs) <- projs
> owarn <- options("warn")$warn
> options(warn=2L)
> for (i in seq(along=res)) {
+   iprs <- paste("+proj=", projs[i], sep="")
+   xy <- try(project(cbind(0, 0), iprs, legacy=TRUE), silent=TRUE)
+   if (class(xy) == "try-error") {
+     res[i] <- NA
+     msgs[i] <- paste("fwd:", strsplit(xy, "\n")[[1]][2])
+   } else {
+     out <- try(project(xy, iprs, inv=TRUE, legacy=TRUE), silent=TRUE)
+     if (class(out) == "try-error") {
+       res[i] <- NA
+       msgs[i] <- paste("inv:", strsplit(out, "\n")[[1]][2])
+     } else res[i] <- isTRUE(all.equal(cbind(0,0), out))
+   }
+ }
Error in if (class(xy) == "try-error") { : 
  (converted from warning) the condition has length > 1 and only the first element will be used
Execution halted