Fixing minor typing in on_exit function list

DylanKierans · Mar 27, 2024 · 4069a7b · 4069a7b
1 parent b0daaef
commit 4069a7b
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/R/r_exception_list.R b/R/r_exception_list.R
@@ -35,10 +35,6 @@ get_function_exception_list <- function() {
             tryCatch, # Clobbering trace results
             append) 
 
-    # These functions contain on.exit() and blocks instrumentation insert
-    on.exit_functions <- c(R.utils::read.table)
-    function_exception_list <- append(function_exception_list, on.exit_functions)
-
     if (R.utils::isPackageLoaded("R.utils")){
         package_function_exception_list <- c(R.utils::isPackageLoaded)
         function_exception_list <- append(function_exception_list, package_function_exception_list)
@@ -65,6 +61,12 @@ get_function_exception_list <- function() {
         function_exception_list <- append(function_exception_list, package_function_exception_list)
     }
 
+    # These functions contain on.exit() and blocks instrumentation insert
+    on.exit_functions <- c()
+    if (R.utils::isPackageLoaded("R.utils")){ on.exit_functions <- append(on.exit_functions, c(R.utils::read.table)) }
+
+    function_exception_list <- append(function_exception_list, on.exit_functions)
+
     function_exception_list
 }