Fixed bug where calculate_slr() couldn't find random_forest

CSAFE-ISU · Dec 5, 2024 · 2b5a922 · 2b5a922
1 parent 5a07190
commit 2b5a922
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/scenario1-master.R b/R/scenario1-master.R
@@ -130,7 +130,8 @@ scenario1Server <- function(id){
         slr <- handwriterRF::calculate_slr(
           sample1_path = sample1()$datapath,
           sample2_path = sample2()$datapath,
-          project_dir = file.path(tempdir(), "comparison1"))
+          project_dir = file.path(tempdir(), "comparison1"),
+          rforest = handwriterRF::random_forest)
 
         # load graphs
         graphs$sample1 <- readRDS(file.path(tempdir(), "comparison1", "graphs", stringr::str_replace(basename(sample1()$datapath), ".png", "_proclist.rds")))