Saving and reloading still takes too much time

[soerenkuenzel]

The following code is fast, b/c the data set is small, but the relinkCPP_prt function takes for ever for big data sets.

devtools::install_github("soerenkuenzel/forestry", ref = 'SaveAndLoad')

library(forestry)
set.seed(323652639)
x <- iris[, -1]
y <- iris[, 1]
forest <- forestry(x, y, ntree = 3)
y_pred_before <- predict(forest, x)

forest <- make_savable(forest)
save(forest, file = "forest.Rda")
load("forest.Rda", verbose = FALSE)
forest <- relinkCPP_prt(forest)

y_pred_after <- predict(forest, x)
data.frame(y_pred_before,y_pred_after)
testthat::expect_equal(y_pred_before, y_pred_after)
file.remove("forest.Rda")