if(interactive()){
result <- visual_prep(type = "lm", features = "thickness.left.cuneus",
batch = "manufac", covariates = "AGE", df = adni[1:100, ], mdmr = FALSE, cores = 1)
temp_dir <- tempfile()
dir.create(temp_dir)
diag_save(temp_dir, result, quarto = FALSE)
message("Diagnostics saved to: ", temp_dir)
unlink(temp_dir, recursive = TRUE) # Clean up the temporary directory
}
# \dontshow{
# Ensure temp_dir exists before attempting cleanup
if (exists("temp_dir")) unlink(temp_dir, recursive = TRUE)
# }
Run the code above in your browser using DataLab