add data_frame() to utility functions

JosiahParry · JosiahParry · commit bf1e7ea1f0c4 · 2024-07-05T10:27:27.000-04:00
diff --git a/R/utils.R b/R/utils.R
@@ -56,7 +56,7 @@ list_fields <- function(x) {
     res <- infer_esri_type(data.frame())
   }
 
-  res
+  data_frame(res)
 }
 
 #' @export
@@ -72,7 +72,7 @@ pull_field_aliases <- function(x) {
 #' @rdname utils
 list_items <- function(x) {
   check_inherits_any(x, c("FeatureServer", "ImageServer", "MapServer"))
-  rbind(x[["layers"]], x[["tables"]])
+  data_frame(rbind(x[["layers"]], x[["tables"]]))
 }
 
 #' @export

Original file line number	Diff line number	Diff line change
`@@ -56,7 +56,7 @@ list_fields <- function(x) {`
`56`	`56`	`res <- infer_esri_type(data.frame())`
`57`	`57`	`}`
`58`	`58`
`59`		`- res`
	`59`	`+ data_frame(res)`
`60`	`60`	`}`
`61`	`61`
`62`	`62`	`#' @export`
`@@ -72,7 +72,7 @@ pull_field_aliases <- function(x) {`
`72`	`72`	`#' @rdname utils`
`73`	`73`	`list_items <- function(x) {`
`74`	`74`	`check_inherits_any(x, c("FeatureServer", "ImageServer", "MapServer"))`
`75`		`- rbind(x[["layers"]], x[["tables"]])`
	`75`	`+ data_frame(rbind(x[["layers"]], x[["tables"]]))`
`76`	`76`	`}`
`77`	`77`
`78`	`78`	`#' @export`