Skip to content

Commit b840fab

Browse files
gilbertocamaragilbertocamara
committed
new BDC configuration
1 parent e39e026 commit b840fab

File tree

104 files changed

+464
-616
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

104 files changed

+464
-616
lines changed

‎NAMESPACE

+4-3
Original file line numberDiff line numberDiff line change
@@ -139,6 +139,7 @@ S3method(.samples_alloc_strata,class_vector_cube)
139139
S3method(.samples_bands,default)
140140
S3method(.samples_bands,sits)
141141
S3method(.samples_bands,sits_base)
142+
S3method(.samples_select_bands,patterns)
142143
S3method(.samples_select_bands,sits)
143144
S3method(.samples_select_bands,sits_base)
144145
S3method(.slice_dfr,numeric)
@@ -157,7 +158,7 @@ S3method(.source_item_get_bands,stac_cube)
157158
S3method(.source_item_get_cloud_cover,cdse_cube)
158159
S3method(.source_item_get_cloud_cover,sdc_cube)
159160
S3method(.source_item_get_cloud_cover,stac_cube)
160-
S3method(.source_item_get_date,"mpc_cube_mod13q1-61")
161+
S3method(.source_item_get_date,"mpc_cube_mod13q1-6.1")
161162
S3method(.source_item_get_date,cdse_cube)
162163
S3method(.source_item_get_date,deafrica_cube)
163164
S3method(.source_item_get_date,stac_cube)
@@ -174,7 +175,7 @@ S3method(.source_items_new,"deafrica_cube_sentinel-1-rtc")
174175
S3method(.source_items_new,"deafrica_cube_sentinel-2-l2a")
175176
S3method(.source_items_new,"mpc_cube_cop-dem-glo-30")
176177
S3method(.source_items_new,"mpc_cube_landsat-c2-l2")
177-
S3method(.source_items_new,"mpc_cube_mod13q1-61")
178+
S3method(.source_items_new,"mpc_cube_mod13q1-6.1")
178179
S3method(.source_items_new,"mpc_cube_sentinel-1-grd")
179180
S3method(.source_items_new,"mpc_cube_sentinel-1-rtc")
180181
S3method(.source_items_new,"mpc_cube_sentinel-2-l2a")
@@ -191,7 +192,7 @@ S3method(.source_items_tile,"deafrica_cube_rainfall-chirps-daily")
191192
S3method(.source_items_tile,"deafrica_cube_rainfall-chirps-monthly")
192193
S3method(.source_items_tile,"mpc_cube_cop-dem-glo-30")
193194
S3method(.source_items_tile,"mpc_cube_landsat-c2-l2")
194-
S3method(.source_items_tile,"mpc_cube_mod13q1-61")
195+
S3method(.source_items_tile,"mpc_cube_mod13q1-6.1")
195196
S3method(.source_items_tile,"mpc_cube_sentinel-1-grd")
196197
S3method(.source_items_tile,"mpc_cube_sentinel-1-rtc")
197198
S3method(.source_items_tile,"mpc_cube_sentinel-2-l2a")

‎R/api_accessors.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -169,7 +169,7 @@
169169
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
170170
#' modis_cube <- sits_cube(
171171
#' source = "BDC",
172-
#' collection = "MOD13Q1-6",
172+
#' collection = "MOD13Q1-6.1",
173173
#' data_dir = data_dir,
174174
#' delim = "_"
175175
#' )

‎R/api_conf.R

+3-3
Original file line numberDiff line numberDiff line change
@@ -974,16 +974,16 @@ NULL
974974
#'
975975
#' @examples
976976
#' if (sits_run_examples()) {
977-
#' # tests if 'BDC -> MOD13Q1-6 -> NDVI' key exists in config
977+
#' # tests if 'BDC -> MOD13Q1-6.1 -> NDVI' key exists in config
978978
#' .conf_eo_band_exists(
979979
#' source = "BDC",
980-
#' collection = "MOD13Q1-6",
980+
#' collection = "MOD13Q1-6.1",
981981
#' band = "NDVI"
982982
#' )
983983
#' # get configuration for band NDVI of 'BDC -> MOD13Q1-6' collection
984984
#' x <- .conf_eo_band(
985985
#' source = "BDC",
986-
#' collection = "MOD13Q1-6",
986+
#' collection = "MOD13Q1-6.1",
987987
#' band = "NDVI"
988988
#' )
989989
#' }

‎R/api_reduce.R

+1
Original file line numberDiff line numberDiff line change
@@ -81,6 +81,7 @@
8181
tile = tile,
8282
block = block,
8383
bands = in_bands,
84+
base_bands = NULL,
8485
ml_model = NULL,
8586
impute_fn = impute_fn,
8687
filter_fn = NULL

‎R/api_samples.R

+8
Original file line numberDiff line numberDiff line change
@@ -175,6 +175,14 @@
175175
# Return samples
176176
samples
177177
}
178+
#' @export
179+
.samples_select_bands.patterns <- function(samples, bands) {
180+
# Filter samples
181+
.ts(samples) <- .ts_select_bands(ts = .ts(samples),
182+
bands = bands)
183+
# Return samples
184+
samples
185+
}
178186
#' @title Select time series samples based on a temporal interval
179187
#' @noRd
180188
#' @param samples Data.frame with samples

‎R/api_source_mpc.R

+3-3
Original file line numberDiff line numberDiff line change
@@ -469,7 +469,7 @@
469469
#' @param platform Satellite platform (optional).
470470
#' @return An object referring the images of a sits cube.
471471
#' @export
472-
`.source_items_new.mpc_cube_mod13q1-61` <- function(source,
472+
`.source_items_new.mpc_cube_mod13q1-6.1` <- function(source,
473473
collection,
474474
stac_query, ...,
475475
tiles = NULL,
@@ -602,7 +602,7 @@
602602
#' @keywords internal
603603
#' @noRd
604604
#' @export
605-
`.source_items_tile.mpc_cube_mod13q1-61` <- function(source,
605+
`.source_items_tile.mpc_cube_mod13q1-6.1` <- function(source,
606606
items, ...,
607607
collection = NULL) {
608608

@@ -700,7 +700,7 @@
700700
#' @param collection Image collection
701701
#' @return List of dates
702702
#' @export
703-
`.source_item_get_date.mpc_cube_mod13q1-61` <- function(source,
703+
`.source_item_get_date.mpc_cube_mod13q1-6.1` <- function(source,
704704
item, ...,
705705
collection = NULL) {
706706

‎R/sits_accuracy.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -73,7 +73,7 @@
7373
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
7474
#' cube <- sits_cube(
7575
#' source = "BDC",
76-
#' collection = "MOD13Q1-6",
76+
#' collection = "MOD13Q1-6.1",
7777
#' data_dir = data_dir
7878
#' )
7979
#' # classify a data cube

‎R/sits_active_learning.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -52,7 +52,7 @@
5252
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
5353
#' cube <- sits_cube(
5454
#' source = "BDC",
55-
#' collection = "MOD13Q1-6",
55+
#' collection = "MOD13Q1-6.1",
5656
#' data_dir = data_dir
5757
#' )
5858
#' # build a random forest model

‎R/sits_apply.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -88,7 +88,7 @@
8888
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
8989
#' cube <- sits_cube(
9090
#' source = "BDC",
91-
#' collection = "MOD13Q1-6",
91+
#' collection = "MOD13Q1-6.1",
9292
#' data_dir = data_dir
9393
#' )
9494
#'

‎R/sits_bands.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -20,7 +20,7 @@
2020
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
2121
#' cube <- sits_cube(
2222
#' source = "BDC",
23-
#' collection = "MOD13Q1-6",
23+
#' collection = "MOD13Q1-6.1",
2424
#' data_dir = data_dir
2525
#' )
2626
#' # Get the bands from a daya cube

‎R/sits_bbox.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,7 @@
2222
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
2323
#' cube <- sits_cube(
2424
#' source = "BDC",
25-
#' collection = "MOD13Q1-6",
25+
#' collection = "MOD13Q1-6.1",
2626
#' data_dir = data_dir
2727
#' )
2828
#' sits_bbox(cube, as_crs = "EPSG:4326")

‎R/sits_classify.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -100,7 +100,7 @@
100100
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
101101
#' cube <- sits_cube(
102102
#' source = "BDC",
103-
#' collection = "MOD13Q1-6",
103+
#' collection = "MOD13Q1-6.1",
104104
#' data_dir = data_dir
105105
#' )
106106
#' # classify a data cube

‎R/sits_clean.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -31,7 +31,7 @@
3131
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
3232
#' cube <- sits_cube(
3333
#' source = "BDC",
34-
#' collection = "MOD13Q1-6",
34+
#' collection = "MOD13Q1-6.1",
3535
#' data_dir = data_dir
3636
#' )
3737
#' # classify a data cube

‎R/sits_combine_predictions.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -35,7 +35,7 @@
3535
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
3636
#' cube <- sits_cube(
3737
#' source = "BDC",
38-
#' collection = "MOD13Q1-6",
38+
#' collection = "MOD13Q1-6.1",
3939
#' data_dir = data_dir
4040
#' )
4141
#' # create a random forest model

‎R/sits_cube.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -288,7 +288,7 @@
288288
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
289289
#' modis_cube <- sits_cube(
290290
#' source = "BDC",
291-
#' collection = "MOD13Q1-6",
291+
#' collection = "MOD13Q1-6.1",
292292
#' data_dir = data_dir
293293
#' )
294294
#' }

‎R/sits_get_data.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -65,7 +65,7 @@
6565
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
6666
#' raster_cube <- sits_cube(
6767
#' source = "BDC",
68-
#' collection = "MOD13Q1-6",
68+
#' collection = "MOD13Q1-6.1",
6969
#' data_dir = data_dir
7070
#' )
7171
#' samples <- tibble::tibble(longitude = -55.66738, latitude = -11.76990)

‎R/sits_label_classification.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -30,7 +30,7 @@
3030
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
3131
#' cube <- sits_cube(
3232
#' source = "BDC",
33-
#' collection = "MOD13Q1-6",
33+
#' collection = "MOD13Q1-6.1",
3434
#' data_dir = data_dir
3535
#' )
3636
#' # classify a data cube

‎R/sits_labels.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -23,7 +23,7 @@
2323
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
2424
#' cube <- sits_cube(
2525
#' source = "BDC",
26-
#' collection = "MOD13Q1-6",
26+
#' collection = "MOD13Q1-6.1",
2727
#' data_dir = data_dir
2828
#' )
2929
#' # classify a data cube

‎R/sits_lighttae.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -75,7 +75,7 @@
7575
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
7676
#' cube <- sits_cube(
7777
#' source = "BDC",
78-
#' collection = "MOD13Q1-6",
78+
#' collection = "MOD13Q1-6.1",
7979
#' data_dir = data_dir
8080
#' )
8181
#' # classify a data cube

‎R/sits_mosaic.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -47,7 +47,7 @@
4747
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
4848
#' cube <- sits_cube(
4949
#' source = "BDC",
50-
#' collection = "MOD13Q1-6",
50+
#' collection = "MOD13Q1-6.1",
5151
#' data_dir = data_dir
5252
#' )
5353
#' # classify a data cube

‎R/sits_plot.R

+8-8
Original file line numberDiff line numberDiff line change
@@ -362,7 +362,7 @@ plot.predicted <- function(x, y, ...,
362362
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
363363
#' cube <- sits_cube(
364364
#' source = "BDC",
365-
#' collection = "MOD13Q1-6",
365+
#' collection = "MOD13Q1-6.1",
366366
#' data_dir = data_dir
367367
#' )
368368
#' # plot NDVI band of the second date date of the data cube
@@ -551,7 +551,7 @@ plot.raster_cube <- function(x, ...,
551551
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
552552
#' cube <- sits_cube(
553553
#' source = "BDC",
554-
#' collection = "MOD13Q1-6",
554+
#' collection = "MOD13Q1-6.1",
555555
#' data_dir = data_dir
556556
#' )
557557
#' # Segment the cube
@@ -690,7 +690,7 @@ plot.vector_cube <- function(x, ...,
690690
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
691691
#' cube <- sits_cube(
692692
#' source = "BDC",
693-
#' collection = "MOD13Q1-6",
693+
#' collection = "MOD13Q1-6.1",
694694
#' data_dir = data_dir
695695
#' )
696696
#' # classify a data cube
@@ -840,7 +840,7 @@ plot.probs_vector_cube <- function(x, ...,
840840
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
841841
#' cube <- sits_cube(
842842
#' source = "BDC",
843-
#' collection = "MOD13Q1-6",
843+
#' collection = "MOD13Q1-6.1",
844844
#' data_dir = data_dir
845845
#' )
846846
#' # classify a data cube
@@ -933,7 +933,7 @@ plot.variance_cube <- function(x, ...,
933933
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
934934
#' cube <- sits_cube(
935935
#' source = "BDC",
936-
#' collection = "MOD13Q1-6",
936+
#' collection = "MOD13Q1-6.1",
937937
#' data_dir = data_dir
938938
#' )
939939
#' # classify a data cube
@@ -1017,7 +1017,7 @@ plot.uncertainty_cube <- function(x, ...,
10171017
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
10181018
#' cube <- sits_cube(
10191019
#' source = "BDC",
1020-
#' collection = "MOD13Q1-6",
1020+
#' collection = "MOD13Q1-6.1",
10211021
#' data_dir = data_dir
10221022
#' )
10231023
#' # segment the image
@@ -1122,7 +1122,7 @@ plot.uncertainty_vector_cube <- function(x, ...,
11221122
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
11231123
#' cube <- sits_cube(
11241124
#' source = "BDC",
1125-
#' collection = "MOD13Q1-6",
1125+
#' collection = "MOD13Q1-6.1",
11261126
#' data_dir = data_dir
11271127
#' )
11281128
#' # classify a data cube
@@ -1210,7 +1210,7 @@ plot.class_cube <- function(x, y, ...,
12101210
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
12111211
#' cube <- sits_cube(
12121212
#' source = "BDC",
1213-
#' collection = "MOD13Q1-6",
1213+
#' collection = "MOD13Q1-6.1",
12141214
#' data_dir = data_dir
12151215
#' )
12161216
#' # segment the image

‎R/sits_reduce.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -81,7 +81,7 @@
8181
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
8282
#' cube <- sits_cube(
8383
#' source = "BDC",
84-
#' collection = "MOD13Q1-6",
84+
#' collection = "MOD13Q1-6.1",
8585
#' data_dir = data_dir
8686
#' )
8787
#'

‎R/sits_sample_functions.R

+2-2
Original file line numberDiff line numberDiff line change
@@ -268,7 +268,7 @@ sits_reduce_imbalance <- function(samples,
268268
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
269269
#' cube <- sits_cube(
270270
#' source = "BDC",
271-
#' collection = "MOD13Q1-6",
271+
#' collection = "MOD13Q1-6.1",
272272
#' data_dir = data_dir
273273
#' )
274274
#' # classify a data cube
@@ -390,7 +390,7 @@ sits_sampling_design <- function(cube,
390390
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
391391
#' cube <- sits_cube(
392392
#' source = "BDC",
393-
#' collection = "MOD13Q1-6",
393+
#' collection = "MOD13Q1-6.1",
394394
#' data_dir = data_dir
395395
#' )
396396
#' # classify a data cube

‎R/sits_segmentation.R

+2-2
Original file line numberDiff line numberDiff line change
@@ -54,7 +54,7 @@
5454
#' # create a data cube
5555
#' cube <- sits_cube(
5656
#' source = "BDC",
57-
#' collection = "MOD13Q1-6",
57+
#' collection = "MOD13Q1-6.1",
5858
#' data_dir = data_dir
5959
#' )
6060
#' # segment the vector cube
@@ -217,7 +217,7 @@ sits_segment <- function(cube,
217217
#' # create a data cube
218218
#' cube <- sits_cube(
219219
#' source = "BDC",
220-
#' collection = "MOD13Q1-6",
220+
#' collection = "MOD13Q1-6.1",
221221
#' data_dir = data_dir
222222
#' )
223223
#' # segment the vector cube

‎R/sits_sf.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -19,7 +19,7 @@
1919
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
2020
#' cube <- sits_cube(
2121
#' source = "BDC",
22-
#' collection = "MOD13Q1-6",
22+
#' collection = "MOD13Q1-6.1",
2323
#' data_dir = data_dir
2424
#' )
2525
#' sf_object <- sits_as_sf(cube)

‎R/sits_smooth.R

+1-1
Original file line numberDiff line numberDiff line change
@@ -37,7 +37,7 @@
3737
#' data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
3838
#' cube <- sits_cube(
3939
#' source = "BDC",
40-
#' collection = "MOD13Q1-6",
40+
#' collection = "MOD13Q1-6.1",
4141
#' data_dir = data_dir
4242
#' )
4343
#' # classify a data cube

0 commit comments

Comments
 (0)