# fetch map unit geometry from a bounding-box:
#
# +------------- (-120.41, 38.70)
# | |
# | |
# (-120.54, 38.61) --------------+
# basic usage
b <- c(-120.54,38.61,-120.41,38.70)
x <- mapunit_geom_by_ll_bbox(b) # about 20 seconds
plot(x)
# get map unit data for matching map unit keys
in.statement <- format_SQL_in_statement(unique(x$MUKEY))
q <- paste("SELECT mukey, muname FROM mapunit WHERE mukey IN ", in.statment, sep="")
res <- SDA_query(q)
Run the code above in your browser using DataLab