Merge pull request #201 from R-ArcGIS/cran-release

JosiahParry · web-flow · commit da23214919c1 · 2024-07-13T08:35:44.000-04:00
CRAN release
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: arcgislayers
 Type: Package
 Title: An Interface to ArcGIS Data Services
-Version: 0.2.1
+Version: 0.3.0
 Authors@R: c(
     person("Josiah", "Parry", , "josiah.parry@gmail.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0001-9910-865X")),
diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,4 @@
-# arcgislayers (development)
+# arcgislayers 0.3.0
 
 - `arc_open()` will now work on any resource that works when `f=json` is set in the query parameters closes [#163](https://github.com/R-ArcGIS/arcgislayers/issues/163)
 - Now uses [`{arcpbf}`](https://r.esri.com/arcpbf/index.html) when a layer supports protocol buffers. 
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
`@@ -1,4 +1,4 @@`
`1`		`-# arcgislayers (development)`
	`1`	`+# arcgislayers 0.3.0`
`2`	`2`
`3`	`3`	- `arc_open()` will now work on any resource that works when `f=json` is set in the query parameters closes [#163](https://github.com/R-ArcGIS/arcgislayers/issues/163)
`4`	`4`	- Now uses [`{arcpbf}`](https://r.esri.com/arcpbf/index.html) when a layer supports protocol buffers.
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`