remove user argument. Use arcgisutils check_token_has_user()

NEWS.md

@@ -3,6 +3,7 @@
 - **Breaking**: 
  - `token` arguments are required to be a valid `httr2_token` object (strings are not supported).
  - all `host` arguments are removed. Instead, the host is fetched from the `token`.
+ - all `user` arguments are removed. Instead, the username is fetched from the `token`. If it is not found, an error is thrown.
 - Add support for `GroupLayer`s
 - Add `arc_read()` with support for `name_repair` argument using `{vctrs}` (#108)
 - Add `get_layer_estimates()` to retrieve estimate info such as the number of features and the extent of the layer

R/add_item.R

@@ -61,7 +61,6 @@
 add_item <- function(
  x,
  title,
- user = Sys.getenv("ARCGIS_USER"),
  description = "",
  tags = character(0),
  snippet = "",
@@ -75,6 +74,12 @@ add_item <- function(
  # validate the token
  obj_check_token(token)
 
+ # check that there is a user associated with the token
+ check_token_has_user(token)
+
+ # extract username
+ user <- token[["username"]]
+
  # fetch the host from the token
  host <- token[["arcgis_host"]]
 
@@ -175,7 +180,6 @@ add_item <- function(
 #' @rdname publish
 publish_item <- function(
  item_id,
- user = Sys.getenv("ARCGIS_USER"),
  publish_params = .publish_params(),
  file_type = "featureCollection",
  token = arc_token()
@@ -184,6 +188,12 @@ publish_item <- function(
  # validate the token
  obj_check_token(token)
 
+ # check that there is a user associated with the token
+ check_token_has_user(token)
+
+ # extract username
+ user <- token[["username"]]
+
  # fetch the host
  host <- token[["arcgis_host"]]
 
@@ -221,7 +231,6 @@ publish_layer <- function(
  x,
  title,
  ...,
- user = Sys.getenv("ARCGIS_USER"),
  publish_params = .publish_params(title, target_crs = sf::st_crs(x)),
  token = arc_token()
 ) {
@@ -232,7 +241,6 @@ publish_layer <- function(
  add_item(
  x,
  title,
- user = user,
  token = token,
  !!!adtl_args
  )
@@ -244,7 +252,6 @@ publish_layer <- function(
 
  published_item <- publish_item(
  item_id,
- user = user,
  publish_params = publish_params,
  token = token
  )

R/create-service.R

@@ -30,13 +30,12 @@
 #'
 #' @export
 #' @examples
-#' if (interactive()) {
+#' \donttest{
 #' set_arc_token(auth_code())
 #' create_feature_server("My empty feature server")
 #' }
 create_feature_server <- function(
  service_name,
- user = Sys.getenv("ARCGIS_USER"),
  description = "",
  crs = 3857,
  capabilities = c("create", "delete", "query", "update", "editing"),
@@ -57,6 +56,12 @@ create_feature_server <- function(
  # validate the token
  obj_check_token(token)
 
+ # check that there is a user associated with the token
+ check_token_has_user(token)
+
+ # extract username
+ user <- token[["username"]]
+
  # fetch the host
  host <- token[["arcgis_host"]]