more tests

NAMESPACE

@@ -281,7 +281,6 @@ S3method(sits_bands,patterns)
 S3method(sits_bands,raster_cube)
 S3method(sits_bands,sits)
 S3method(sits_bands,sits_model)
-S3method(sits_bands,tbl_df)
 S3method(sits_bbox,default)
 S3method(sits_bbox,raster_cube)
 S3method(sits_bbox,sits)
@@ -296,7 +295,6 @@ S3method(sits_clean,class_cube)
 S3method(sits_clean,default)
 S3method(sits_clean,derived_cube)
 S3method(sits_clean,raster_cube)
-S3method(sits_clean,tbl_df)
 S3method(sits_cluster_dendro,default)
 S3method(sits_cluster_dendro,sits)
 S3method(sits_cluster_dendro,tbl_df)
@@ -319,7 +317,6 @@ S3method(sits_label_classification,derived_cube)
 S3method(sits_label_classification,probs_cube)
 S3method(sits_label_classification,probs_vector_cube)
 S3method(sits_label_classification,raster_cube)
-S3method(sits_label_classification,tbl_df)
 S3method(sits_labels,default)
 S3method(sits_labels,derived_cube)
 S3method(sits_labels,derived_vector_cube)
@@ -346,7 +343,6 @@ S3method(sits_regularize,"mpc_cube_sentinel-1-grd")
 S3method(sits_regularize,default)
 S3method(sits_regularize,derived_cube)
 S3method(sits_regularize,raster_cube)
-S3method(sits_regularize,tbl_df)
 S3method(sits_select,default)
 S3method(sits_select,patterns)
 S3method(sits_select,raster_cube)

R/api_clean.R

@@ -85,8 +85,6 @@
         # Returned block files for each fraction
         block_files
     })
-    # Remove raster without clean
-    unlink(.tile_path(tile))
     # Merge blocks into a new class_cube tile
     band_tile <- .tile_derived_merge_blocks(
         file = out_file,

R/sits_bands.R

@@ -75,7 +75,7 @@ sits_bands.sits_model <- function(x) {
 }
 #' @rdname sits_bands
 #' @export
-sits_bands.tbl_df <- function(x) {
+sits_bands.default <- function(x) {
     x <- tibble::as_tibble(x)
     if (all(.conf("sits_cube_cols") %in% colnames(x))) {
         x <- .cube_find_class(x)
@@ -86,12 +86,6 @@ sits_bands.tbl_df <- function(x) {
     bands <- sits_bands(x)
     return(bands)
 }
-#' @rdname sits_bands
-#' @export
-sits_bands.default <- function(x) {
-    stop("Input should be an object of class sits, raster_cube, or ml_model")
-}
-
 #' @rdname sits_bands
 #' @export
 `sits_bands<-` <- function(x, value) {

R/sits_clean.R

@@ -144,7 +144,7 @@ sits_clean.derived_cube <- function(cube, window_size = 5L, memsize = 4L,
 }
 #' @rdname sits_clean
 #' @export
-sits_clean.tbl_df <- function(cube, window_size = 5L, memsize = 4L,
+sits_clean.default <- function(cube, window_size = 5L, memsize = 4L,
                               multicores = 2L, output_dir,
                               version = "v1-clean", progress = TRUE) {
     cube <- tibble::as_tibble(cube)
@@ -156,10 +156,3 @@ sits_clean.tbl_df <- function(cube, window_size = 5L, memsize = 4L,
                              output_dir, version, progress)
     return(clean_cube)
 }
-#' @rdname sits_clean
-#' @export
-sits_clean.default <- function(cube, window_size = 5L, memsize = 4L,
-                               multicores = 2L, output_dir,
-                               version = "v1-clean", progress = TRUE) {
-    stop("Input should be a classified cube")
-}

R/sits_label_classification.R

@@ -162,7 +162,7 @@ sits_label_classification.derived_cube <- function(cube, ...) {
 
 #' @rdname sits_label_classification
 #' @export
-sits_label_classification.tbl_df <- function(cube, ...){
+sits_label_classification.default <- function(cube, ...){
     cube <- tibble::as_tibble(cube)
     if (all(.conf("sits_cube_cols") %in% colnames(cube))) {
         cube <- .cube_find_class(cube)
@@ -171,9 +171,3 @@ sits_label_classification.tbl_df <- function(cube, ...){
     class_cube <- sits_label_classification(cube, ...)
     return(class_cube)
 }
-
-#' @rdname sits_label_classification
-#' @export
-sits_label_classification.default <- function(cube, ...) {
-    stop("Input should be a classified cube")
-}

R/sits_regularize.R

@@ -224,25 +224,6 @@ sits_regularize.derived_cube <- function(cube,
 }
 #' @rdname sits_regularize
 #' @export
-sits_regularize.tbl_df <- function(
-        cube,
-        period,
-        res,
-        output_dir,
-        roi = NULL,
-        multicores = 2,
-        progress = TRUE) {
-    cube <- tibble::as_tibble(cube)
-    if (all(.conf("sits_cube_cols") %in% colnames(cube))) {
-        cube <- .cube_find_class(cube)
-    } else
-        stop("Input should be a data cube")
-    cube <- sits_regularize(cube, period, res, output_dir, roi,
-                            multicores, progress)
-    return(cube)
-}
-#' @rdname sits_regularize
-#' @export
 sits_regularize.default <- function(cube,
                                     period,
                                     res,

inst/extdata/cran/sits_codecov.R

@@ -1 +1,2 @@
 withr::with_envvar(new = c("SITS_RUN_TESTS" = "YES"), covr::codecov(token = "53fbd031-6dab-40a4-98a5-84885b45531e"))
+

tests/testthat/test-bands.R

@@ -16,4 +16,9 @@ test_that("band rename", {
     sinop <- .band_rename(sinop, "NDVI2")
     new_band <- sits_bands(sinop)
     expect_equal(new_band, "NDVI2")
+
+    sp <- sinop
+    class(sinop) <- "data.frame"
+    bands_cube <- sits_bands(sinop)
+    expect_equal(bands_cube, "NDVI2")
 })

tests/testthat/test-cube.R

@@ -198,12 +198,19 @@ test_that("Creating cubes from BDC - based on ROI with shapefile", {
     class(modis_cube2) <- "data.frame"
     in2 <- .cube_intersects(modis_cube2, sf_mt)
     expect_true(all(in2))
+    expect_true(.tile_intersects(modis_cube2[1,], sf_mt))
+
+    expect_false(.tile_within(modis_cube2[1,], sf_mt))
+    expect_false(.tile_within(modis_cube2[6,], sf_mt))
 
     modis_cube3 <- .cube_filter_spatial(modis_cube2, sf_mt)
     expect_equal(nrow(modis_cube2), nrow(modis_cube3))
 
     modis_cube4 <- .cube_filter_bands(modis_cube2, "EVI")
     expect_true(.cube_bands(modis_cube4) %in% .cube_bands(modis_cube2))
+    tile <- modis_cube2[1,]
+    modis_evi <- .tile_filter_bands(tile, "EVI")
+    expect_equal("EVI", sits_bands(modis_evi))
 
     modis_tiles <- .cube_tiles(modis_cube2)
     expect_true(all(c("011009", "012010") %in% .cube_tiles(modis_cube)))