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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: vizAnnualClimate
> ### Title: Annual Climate Summaries for Soil Series Data
> ### Aliases: vizAnnualClimate
> 
> ### ** Examples
> 
> 
> if(requireNamespace("curl") &
+ curl::has_internet() &
+   require(soilDB) & 
+   require(aqp) & 
+   require(latticeExtra)
+ ) {
+   
+   # soil series of interest
+   soil <- 'ARBUCKLE'
+   
+   # get competing series
+   sdata <- fetchOSD(soil, extended = TRUE)
+   
+   # get competing series' data
+   sdata.competing <- fetchOSD(c(soil, sdata$competing$competing))
+   
+   # only use established series
+   idx <- which(sdata.competing$series_status == 'established')
+   
+   # subset as needed
+   if(length(idx) < length(sdata.competing)) {
+     sdata.competing <- sdata.competing[idx, ]
+     
+   }
+   
+   # now get the extended data
+   sdata.competing.full <- fetchOSD(site(sdata.competing)$id, extended = TRUE)
+   
+   # extract SPC
+   spc <- sdata.competing.full$SPC
+   
+   # full set of series names
+   s.names <- unique(site(spc)$id)
+   
+   # todo: probably better ways to do this...
+   # note: need to load lattice for this to work
+   trellis.par.set(plot.line=list(col='RoyalBlue'))
+   
+   # control center symbol and size here
+   res <- vizAnnualClimate(
+   sdata.competing.full$climate.annual, 
+   s = soil, 
+   IQR.cex = 1.1, 
+   cex = 1.1, 
+   pch = 18
+   )
+   
+   # plot figure
+   print(res$fig)
+   
+   # check clustering
+   str(res$clust)
+   
+   # do something with clustering
+   op <- par(no.readonly = TRUE)
+   
+   par(mar=c(0,0,1,1))
+   plotProfileDendrogram(spc, clust = res$clust, scaling.factor = 0.075, width = 0.2, y.offset = 0.5)
+   mtext('sorted by annual climate summaries', side = 3, at = 0.5, adj = 0, line = -1.5, font=3)
+   
+   par(op)
+   
+ }
Loading required package: soilDB
Loading required package: aqp
This is aqp 1.30

Attaching package: ‘aqp’

The following object is masked from ‘package:stats’:

    filter

Loading required package: latticeExtra
Loading required package: lattice
Error in open.connection(con, "rb") : 
  Timeout was reached: [casoilresource.lawr.ucdavis.edu] Connection timed out after 10000 milliseconds
error
Error in open.connection(con, "rb") : 
  Timeout was reached: [casoilresource.lawr.ucdavis.edu] Connection timed out after 10001 milliseconds
error
Error in h(simpleError(msg, call)) : 
  error in evaluating the argument 'x' in selecting a method for function 'unique': unable to find an inherited method for function ‘site’ for signature ‘"NULL"’
Calls: unique -> site -> <Anonymous>
Execution halted