# \donttest{
# Where this would fit in a particular workflow
xpose_set(pheno_base, pheno_final) %>%
# forward functions affecting xpdb objects
focus_xpdb(everything()) %>%
# Add iOFVs
focus_function(backfill_iofv) %>%
# Change color of all xpdb xp_themes (though only the first one needs to change)
focus_function(
function(x) shark_colors(
x,
upcolor = "purple",
dncolor = "green"
)) %>%
# See new plot
shark_plot()
# }
Run the code above in your browser using DataLab