use utils explicitly

robertzk · Apr 8, 2015 · 044980a · 044980a
1 parent b52d66b
commit 044980a
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: testthatsomemore
 Title: A mocking, stubbing, and file testing framework extending testthat
-Version: 0.2.3
+Version: 0.2.4
 Maintainer: Robert Krzyzanowski <technoguyrob@gmail.com>
 Authors@R: c(person("Robert", "Krzyzanowski",
     email = "technoguyrob@gmail.com", role = c("aut", "cre")))

diff --git a/R/stub.R b/R/stub.R
@@ -62,14 +62,14 @@ package_stub <- function(package_name, function_name, stubbed_value, expr) {
          getNamespace(package_name))
   if (!exists(function_name, envir = namespaces[[1]], inherits = FALSE))
     namespaces <- namespaces[-1]
-  if (!exists(function_name, envir = tail(namespaces,1)[[1]], inherits = FALSE))
+  if (!exists(function_name, envir = utils::tail(namespaces,1)[[1]], inherits = FALSE))
     stop(gettextf("Cannot stub %s::%s because it must exist in the package",
          package_name, function_name))
 
   lapply(namespaces, unlockBinding, sym = function_name)
 
   # Clean up our stubbing on exit
-  previous_object <- get(function_name, envir = tail(namespaces,1)[[1]])
+  previous_object <- get(function_name, envir = utils::tail(namespaces,1)[[1]])
   on.exit({
     lapply(namespaces, function(ns) {
       tryCatch(error = function(.) NULL, assign(function_name, previous_object, envir = ns))