From 2d3a04add88b26fa9b974ee80f8caae06488ed1f Mon Sep 17 00:00:00 2001 From: Josiah Parry Date: Fri, 16 Feb 2024 14:00:50 -0500 Subject: [PATCH] remove Sys.getenv() call for old method of acessing tokens --- R/print-methods.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/print-methods.R b/R/print-methods.R index ecbf495..57545e4 100644 --- a/R/print-methods.R +++ b/R/print-methods.R @@ -45,7 +45,7 @@ print.Table <- function(x, ...) { } #' @export -head.Table <- function(x, n = 6, token = Sys.getenv("ARCGIS_TOKEN"), ...) { +head.Table <- function(x, n = 6, token = arc_token(), ...) { collect_layer(x, n, token) } @@ -86,7 +86,7 @@ print.FeatureLayer <- function(x, ...) { #' @importFrom utils head #' @export -head.FeatureLayer <- function(x, n = 6, token = Sys.getenv("ARCGIS_TOKEN"), ...) { +head.FeatureLayer <- function(x, n = 6, token = arc_token(), ...) { collect_layer(x, n, token) }