Nothing
## TODO: this isn't really needed any more
#' @export
#' @rdname fetchPedonPC
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 <- merge(hz_data, site_data, by = 'peiid', all.x = TRUE, sort = FALSE)
f.test <- aqp::checkHzDepthLogic(f, hzdepths = c('hzdept', 'hzdepb'),
idname = 'pedon_id', fast = TRUE)
# find bad ones
bad.pedon.ids <- as.character(f.test$pedon_id[which(f.test$valid == 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.