# \donttest{
# Attempt to fix a leaky workflow
workflow <- list(
data = data.frame(x = rnorm(100), y = rnorm(100)),
train_idx = 1:70,
test_idx = 71:100
)
result <- borg_assimilate(workflow)
if (length(result$unfixable) > 0) {
message("Some risks require manual intervention:")
print(result$unfixable)
}
# }
Run the code above in your browser using DataLab