remove unused code

Author: M3nin0

R/api_segments.R

@@ -406,76 +406,3 @@
     class(samples) <- c("sits", class(samples))
     return(samples)
 }
-
-#' @title Split tile bands for extraction of values inside segments
-#' @name .segments_split_tile_bands
-#' @keywords internal
-#' @noRd
-#' @param tile   input tile
-#' @param bands  bands where data will be extracted
-#'
-#' @return tibble with band-files pairs
-#'
-.segments_split_tile_bands <- function(tile, bands) {
-    tile_bands <- purrr::map(bands, function(band) {
-        band_files <- .fi_filter_bands(.fi(tile), band)[["path"]]
-        tibble::tibble(
-            band = band,
-            files = list(band_files),
-            segs_path = .segments_path(tile),
-            params = list(.tile_band_conf(tile, band))
-        )
-    })
-    tile_bands <- dplyr::bind_rows(tile_bands)
-    return(tile_bands)
-}
-#' @title Split tile bands for extraction of values inside segments
-#' @name .segments_split_tile_bands_list
-#' @keywords internal
-#' @noRd
-#' @param tile   input tile
-#' @param bands  bands where data will be extracted
-#' @param segments large set of segments
-#' @param n_iterations number of parts to break the segments
-#' @param output_dir directory to write the segments
-#' @return list of tibbles with band-files pairs
-#'
-.segments_split_tile_bands_list <- function(tile,
-                                            bands,
-                                            segments,
-                                            n_iterations,
-                                            output_dir) {
-
-    segments[["group"]] <- rep(
-        seq_len(n_iterations), each = ceiling(nrow(segments) / n_iterations)
-    )[seq_len(nrow(segments))]
-
-    segments_lst <- dplyr::group_split(
-        dplyr::group_by(segments, .data[["group"]])
-    )
-    segment_files <- purrr::map_chr(segments_lst, function(seg_part) {
-        # Block file name
-        hash_bundle <- digest::digest(seg_part, algo = "md5")
-        seg_file <- .file_path(
-            paste0(hash_bundle, "_segments"),
-            ext = "gpkg",
-            output_dir = output_dir
-        )
-        .vector_write_vec(seg_part, seg_file)
-        return(seg_file)
-    })
-    seg_tile_band_lst <- purrr::map(segment_files, function(seg_file) {
-        tile_bands <- purrr::map(bands, function(band) {
-            band_files <- .fi_filter_bands(.fi(tile), band)[["path"]]
-            tibble::tibble(
-                band = band,
-                files = list(band_files),
-                segs_path = seg_file,
-                params = list(.tile_band_conf(tile, band))
-            )
-        })
-        seg_tile_band <- dplyr::bind_rows(tile_bands)
-        return(seg_tile_band)
-    })
-    return(seg_tile_band_lst)
-}