put setHook() in a branch

Rdatatable · Dec 3, 2024 · 34c7ea0 · 34c7ea0
1 parent f9e65e2
commit 34c7ea0
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/R/onLoad.R b/R/onLoad.R
@@ -70,10 +70,11 @@
     # no delayed registration support for NAMESPACE; perform it manually
     if (isNamespaceLoaded("knitr")) {
       registerS3method("knit_print", "data.table", knit_print.data.table, envir = asNamespace("knitr"))
+    } else {
+      setHook(packageEvent("knitr", "onLoad"), function(...) {
+        registerS3method("knit_print", "data.table", knit_print.data.table, envir = asNamespace("knitr"))
+      })
     }
-    setHook(packageEvent("knitr", "onLoad"), function(...) {
-      registerS3method("knit_print", "data.table", knit_print.data.table, envir = asNamespace("knitr"))
-    })
   }
 
   # Set options for the speed boost in v1.8.0 by avoiding 'default' arg of getOption(,default=)