R/slice.R

In tidyrgee: 'tidyverse' Methods for 'Earth Engine'

#' @export
slice.tidyee <- function(.data,...){
  .data <- .data |> set_idx()
  vrt <- .data$vrt |>
    slice(...)


  if(length(vrt$tidyee_index)>1){
    ee_index_list <-  ee$List(vrt$tidyee_index |> as.character())
    ic_sliced = .data$ee_ob$filter(ee$Filter$inList("tidyee_index", ee_index_list))
  }
  if(length(vrt$tidyee_index)==1){
    ee_index <-  rgee::ee$String(vrt$tidyee_index |> as.character())
    ic_sliced <-  .data$ee_ob$filter(ee$Filter$eq('tidyee_index', ee_index))
    ic_sliced <- rgee::ee$Image(ic_sliced$first())
  }

  return(create_tidyee(x=ic_sliced,vrt=vrt))

}



#' slice ee$ImageCollections or tidyee objects that contain imageCollections
#' @name slice
#' @rdname slice
#' @param .data ImageCollection or tidyee class object
#' @param ... other arguments
#' @return sliced/filtered image or imageCollection form filtered imageCollection
#' @examples \dontrun{
#'
#' library(rgee)
#' library(tidyrgee)
#' ee_Initialize()
#' l8 = ee$ImageCollection('LANDSAT/LC08/C01/T1_SR')
#' l8 |>
#'     filter(date>"2016-01-01",date<"2016-03-04")
#'
#'
#'  # example with tidyee ckass
#
#' modis_ic <- ee$ImageCollection("MODIS/006/MOD13Q1")
#' modis_ic_tidy <- as_tidyee(modis_ic)
#'
#' # filter by month
#' modis_march_april <- modis_ic_tidy |>
#' filter(month %in% c(3,4))
#' }
#' @seealso \code{\link[dplyr]{slice}} for information about slice on normal data tables.
#' @importFrom dplyr slice
#' @export

NULL