Loading plot with optional ggrepel maybe. Should work with any kind of model made by opls()

Hi!
I recently installed your chemhelper package. I just ran a round of package updates and encountered the following error with the package:

Error: package or namespace load failed for ‘chemhelper’ in namespaceExport(ns, exports):
undefined exports: sim_covar, sim_df, sim_discr, sim_missing, sim_multvar
Error: loading failed
Execution halted

Any ideas what could be the reason?

Oh, and one more thing. I altered the plot_oplsda function a little bit to also include the RMSEE, pR² and pQ² values in the plot, and also to name the plot dynamically according to a list of names ("name_list"):

plotPLSDA <- function(ropls_plsda, annotate = c("caption", "subtitle")){
plotdata <- chemhelper::get_plotdata(ropls_plsda)
p <- ggplot(plotdata$scores, aes(x = p1, y = p2, color = y1)) +
geom_point() +
stat_ellipse() +
labs(x = paste0("P1 (", plotdata$axis_stats$R2X[1] * 100, "%)"),
y = paste0("P2 (", plotdata$axis_stats$R2X[2] * 100, "%)")) +
scale_color_discrete("Group Membership") +
theme_bw() +
labs(title = paste0("PLS-DA of ", name_list[i]," Samples"))
stats <- latex2exp::TeX(
paste0("$R^{2}{Y} = ", plotdata$model_stats$R2Y(cum), "$; ",
"$R^{2}{X} = ", plotdata$model_stats$R2X(cum), "$; ",
"$Q^{2} = ", plotdata$model_stats$Q2(cum), "$; ",
"$RMSEE = ", plotdata$model_stats$RMSEE, "$; ",
"$p_{R^{2}} = ", plotdata$model_stats$pR2Y, "$; ",
"$p_{Q^{2}} = ", plotdata$model_stats$pQ2, "$"))
if (annotate == "caption"){
p + labs(caption = stats)
} else if(annotate == "subtitle"){
p + labs(subtitle = stats)
} else{
p
}
}

Consider printing RMSEE. Consider making an argument that takes a character vector of what stats to include. You could simply use %in% operator to check if you should print that one or not.

e.g.

read_IA("User/desktop/file.csv")

doesn't work but

path <- "User/desktop/file.csv"
read_IA(path)

does work

get legend title from the data somehow

calls correct plot_*() method based on attributes.