From 2123c6a23ddd45ec5bf2790bb8d8767f7a9bcef3 Mon Sep 17 00:00:00 2001 From: Tomasz Kalinowski Date: Tue, 17 Dec 2024 09:23:58 -0500 Subject: [PATCH] call `compile_dll()` after `load_code()` --- R/load.R | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/R/load.R b/R/load.R index f65eb79..a05c517 100644 --- a/R/load.R +++ b/R/load.R @@ -163,17 +163,6 @@ load_all <- function(path = ".", compile <- if (isTRUE(recompile)) TRUE else NA } - if (isTRUE(compile)) { - pkgbuild::clean_dll(path) - pkgbuild::compile_dll(path, quiet = quiet) - } else if (identical(compile, NA)) { - pkgbuild::compile_dll(path, quiet = quiet) - } else if (identical(compile, FALSE)) { - # don't compile - } else { - cli::cli_abort("{.arg compile} must be a logical vector of length 1.") - } - old_methods <- list() clear_cache() @@ -206,6 +195,18 @@ load_all <- function(path = ".", out$code <- load_code(path, quiet = quiet) register_s3(path) + + if (isTRUE(compile)) { + pkgbuild::clean_dll(path) + pkgbuild::compile_dll(path, quiet = quiet) + } else if (identical(compile, NA)) { + pkgbuild::compile_dll(path, quiet = quiet) + } else if (identical(compile, FALSE)) { + # don't compile + } else { + cli::cli_abort("{.arg compile} must be a logical vector of length 1.") + } + if (identical(compile, FALSE)) { out$dll <- try_load_dll(path) } else {