rearrange: .datatable.aware to the top

Author: MichaelChirico

R/cedta.R

@@ -57,6 +57,8 @@ cedta.pkgEvalsUserCode = c("gWidgetsWWW","statET","FastRWeb","slidify","rmarkdow
 
   if ("data.table" %chin% names(getNamespaceImports(ns))) return(TRUE)
 
+  if (isTRUE(ns$.datatable.aware)) return(TRUE)
+
   sc <- sys.calls()
   if (nsname == "utils") {
     if (exists("debugger.look", parent.frame(n+1L))) return(TRUE)
@@ -75,8 +77,6 @@ cedta.pkgEvalsUserCode = c("gWidgetsWWW","statET","FastRWeb","slidify","rmarkdow
 
   if (nsname %chin% cedta.override) return(TRUE)
 
-  if (isTRUE(ns$.datatable.aware)) return(TRUE)
-
   # both ns$.Depends and get(.Depends,ns) are not sufficient
   pkg_ns = paste("package", nsname, sep=":")
   tryCatch("data.table" %chin% get(".Depends", pkg_ns, inherits=FALSE), error=function(e) FALSE)