# \donttest{
data(td_single_input)
ssurgo_sf <-
sf::st_read(system.file("extdata", "ssurgo-simple1.shp", package = "ofpetrial")) %>%
dplyr::mutate(mukey = factor(mukey))
checks <-
check_ortho_with_chars(
td = td_single_input,
sp_data_list = list(ssurgo_sf),
vars_list = list("clay")
)
checks$summary_data[[1]]
checks$summary_fig[[1]]
# }
Run the code above in your browser using DataLab