Clean up remaining NOTEs.

.Rbuildignore

@@ -1,2 +1,3 @@
 ^.*\.Rproj$
 ^\.Rproj\.user$
+^\.travis\.yml$

NAMESPACE

@@ -5,6 +5,5 @@ export(add_credential_function)
 export(all_credential_functions)
 export(fetch_token)
 export(get_gce_credentials)
-export(list_service_accounts)
 export(set_credential_functions)
 importFrom(magrittr,"%>%")

R/gce-token.R

@@ -1,3 +1,6 @@
+# Don't warn about . in pipelines.
+utils::globalVariables(".")
+
 #' GceToken is a token for use only on Google Compute Engine instances.
 #'
 #' This class uses the metadata service available on GCE VMs to fetch access tokens.
@@ -55,7 +58,6 @@ detect_gce <- function() {
 #' List all service accounts available on this GCE instance.
 #'
 #' @return A list of service account names.
-#' @export
 list_service_accounts <- function() {
   accounts <- gce_metadata_request('instance/service-accounts')  %>%
     httr::content('text', encoding = 'utf8') %>%

tests/testthat/test-gce-token.R

@@ -14,6 +14,6 @@ test_that('Can list service accounts', {
 
   testthat::with_mock(
     `gauth::gce_metadata_request` = request_mock,
-    expect_equal(service_accounts, gauth::list_service_accounts())
+    expect_equal(service_accounts, gauth:::list_service_accounts())
   )
 })