remove Sys.getenv() call for old method of acessing tokens

R-ArcGIS · Feb 16, 2024 · 2d3a04a · 2d3a04a
1 parent a97c5d3
commit 2d3a04a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)
 }