Merge pull request #149 from rolfsimoes/b-1.0.0-beta

Pre-release 1.0.0

Author: rolfsimoes

.Rbuildignore

@@ -13,3 +13,4 @@
 ^Meta$
 ^\.github$
 ^revdep$
+^cran-comments\.md$

.gitignore

@@ -42,3 +42,5 @@ docs
 inst/doc
 /doc/
 /Meta/
+/revdep/
+cran-comments.md

DESCRIPTION

@@ -80,4 +80,3 @@ Collate:
     'rstac.R'
     'rstac-funs.R'
 Roxygen: list(markdown = TRUE)
-VignetteBuilder: knitr

NAMESPACE

@@ -71,6 +71,7 @@ S3method(items_properties,doc_items)
 S3method(items_reap,default)
 S3method(items_reap,doc_item)
 S3method(items_reap,doc_items)
+S3method(items_select,doc_items)
 S3method(items_sign,default)
 S3method(items_sign,doc_item)
 S3method(items_sign,doc_items)
@@ -201,6 +202,7 @@ export(items_matched)
 export(items_next)
 export(items_properties)
 export(items_reap)
+export(items_select)
 export(items_sign)
 export(items_sign_bdc)
 export(items_sign_planetary_computer)

NEWS.md

@@ -1,5 +1,3 @@
-# rstac (development version)
-
 # rstac 1.0.0 (Released 2024-02-14)
 
 * Add support to static catalogs;

R/items-funs.R

@@ -77,6 +77,9 @@
 #'
 #' @param geom       a `sf` or `sfc` object.
 #'
+#' @param selection  an `integer` vector containing the indices of the items
+#'   to select.
+#'
 #' @param ...             additional arguments. See details.
 #'
 #' @details
@@ -153,6 +156,8 @@
 #' \item `items_properties()`: returns a `character` value with all properties
 #' of all items.
 #'
+#' \item `items_select()`: select features from an items object.
+#'
 #' }
 #'
 #' @examples
@@ -215,6 +220,8 @@
 #'
 #' stac_item %>% items_as_tibble()
 #'
+#' stac_item %>% items_select(c(1, 4, 10, 20))
+#'
 #' }
 #'
 #' @name items_functions
@@ -751,3 +758,26 @@ items_properties.doc_items <- function(items) {
     names(item$properties)
   }))))
 }
+
+#' @rdname items_functions
+#'
+#' @export
+items_select <- function(items, selection) {
+  UseMethod("items_select", items)
+}
+
+#' @rdname items_functions
+#'
+#' @export
+items_select.doc_items <- function(items, selection) {
+  check_items(items)
+  items$features <- items$features[selection]
+  # clear numberMatched information
+  if ("search:metadata" %in% names(items))
+    items$`search:metadata`$matched <- NULL
+  if ("context" %in% names(items))
+    items$`context`$matched <- NULL
+  if ("numberMatched" %in% names(items))
+    items$numberMatched <- NULL
+  items
+}