do not use tail in this method

robertzk · Feb 21, 2015 · a9a7606 · a9a7606
1 parent 493d2d9
commit a9a7606
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/define.r b/R/define.r
@@ -89,7 +89,7 @@ define <- (function() {
       arguments <- arguments[names(arguments) != 'packages']
     }
 
-    fn <- tail(arguments, 1)[[1]]
+    fn <- arguments[[length(arguments)]]
     valid_function <- is.function(fn)
     if (valid_function) {
       dependencies <- head(arguments, -1)