# \donttest{
library(aqp)
# search by series name
s <- fetchKSSL(series='auburn')
# search by bounding-box
# s <- fetchKSSL(bbox=c(-120, 37, -122, 38))
# how many pedons
length(s)
# plot
plotSPC(s, name='hzn_desgn', max.depth=150)
##
## morphologic data
##
# get lab and morphologic data
s <- fetchKSSL(series='auburn', returnMorphologicData = TRUE)
# extract SPC
pedons <- s$SPC
# if (requireNamespace("farver")) {
# ## automatically simplify color data (requires farver)
# s <- fetchKSSL(series='auburn', returnMorphologicData = TRUE, simplifyColors=TRUE)
# # check
# par(mar=c(0,0,0,0))
# plot(pedons, color='moist_soil_color', print.id=FALSE)
# }
# }
Run the code above in your browser using DataLab