tcplPlotcompare: Units do not match

[brown-jason]

When trying to run standalone I get a units do not match error

library(readr)
library(dplyr)
filepath <- "L:\Lab\Toxcast_Data\toxcast_data\misc\invitrodb_v4_2_qc\inspect_invitrodb_v4_2_flips_14MAY2024.csv"
comparison_dataset <- read_csv(filepath)

plot_testing <- comparison_dataset |> filter(flip_dir == "IA")
plot_testing <- plot_testing |> arrange(aenm)

devtools::load_all()
tcplConf(user='_dataminer', pass='pass', db='prod_internal_invitrodb_v4_1', drvr='MySQL', host='ccte-mysql-res.epa.gov')
dat_TEST <- tcplPlotLoadData(lvl = 5, fld = "m5id", val = plot_testing$old_m5id, type = "mc",flags = TRUE, compare = FALSE)
dat_TEST <- dat_TEST[match(plot_testing$old_m5id, dat_TEST$m5id),]

tcplConf(user='_dataminer', pass='pass', db='invitrodb', drvr='MySQL', host='ccte-mysql-res.epa.gov')

ndt2 <- tcplLoadAeid(add.fld = "normalized_data_type")

n <- nrow(dat_TEST)
n <- 29
tcplPlot(dat = head(dat_TEST,n),
type = "mc",
fld = "m5id",
val = head(dat_TEST$m5id,n),
compare.val = head(plot_testing$new_m5id,n),
multi = TRUE,
verbose = TRUE,
output = "pdf",
flags = TRUE)