Nothing
context("SoilProfileCollection attribute guessing functions")
## sample data
data(sp3, package = 'aqp')
depths(sp3) <- id ~ top + bottom
## tests
test_that("basic functionality", {
# historic horizon designation name (e.g. used by plotSPC)
expect_warning(expect_equal(guessHzDesgnName(sp3), "name"))
# basic attribute name guessing
expect_message(expect_equal(guessHzAttrName(sp3, "clay", ""), "clay"),
"guessing horizon attribute 'clay' is stored in `clay`")
# more complex attribute name guessing
sp3$clay_r <- sp3$clay
sp3$claytotal_r <- sp3$clay
expect_message(expect_equal(guessHzAttrName(sp3, "clay", ""), "clay"),
"guessing horizon attribute 'clay' is stored in `clay`")
expect_message(expect_equal(guessHzAttrName(sp3, "clay", c("_r", "total")), "claytotal_r"),
"guessing horizon attribute 'clay' is stored in `claytotal_r`")
# basic attribute name guessing
expect_warning(expect_equal(guessHzTexClName(sp3), ""))
# texcl
horizons(sp3)$texcl <- "l"
expect_warning(expect_equal(guessHzTexClName(sp3), "texcl"))
# texture
sp3$texture <- sp3$texcl
sp3$texcl <- NULL
expect_warning(expect_equal(guessHzTexClName(sp3), "texture"))
# descriptive name
sp3$hzdesgn <- sp3$name
sp3$name <- NULL
sp3$desgn <- 1:nrow(sp3)
expect_warning(expect_equal(guessHzDesgnName(sp3), "hzdesgn"))
# unable to guess name
sp3$foo <- sp3$hzdesgn
sp3$hzdesgn <- NULL
sp3$desgn <- NULL
expect_warning(expect_equal(guessHzDesgnName(sp3), NA))
# custom name
hzdesgnname(sp3) <- "foo"
expect_warning(expect_equal(guessHzDesgnName(sp3), "foo"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.