Nothing
## TODO: this isn't really needed any more
getHzErrorsPedonPC <- function(dsn, strict=TRUE) {
# get data
site_data <- get_site_data_from_pedon_db(dsn)
hz_data <- get_hz_data_from_pedon_db(dsn)
# combine pieces
f <- join(hz_data, site_data, by='peiid', type='inner')
# ignore missing lower boundary
f.test <- ddply(f, 'pedon_id', test_hz_logic, topcol='hzdept', bottomcol='hzdepb', strict=strict)
# find bad ones
bad.pedon.ids <- as.character(f.test$pedon_id[which(f.test$hz_logic_pass == FALSE)])
# now describe the problems
b <- f[which(f$pedon_id %in% bad.pedon.ids), c('pedon_id','hzdept','hzdepb','hzname')]
return(b)
}
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.