Merge pull request #1137 from M3nin0/hotfix/args-merge

update package version

Author: gilbertocamara

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: sits
 Type: Package
-Version: 1.5.0-1
+Version: 1.5.1
 Title: Satellite Image Time Series Analysis for Earth Observation Data Cubes
 Authors@R: c(person('Rolf', 'Simoes', role = c('aut'), email = 'rolf.simoes@inpe.br'),
              person('Gilberto', 'Camara', role = c('aut', 'cre'), email = 'gilberto.camara.inpe@gmail.com'),

NAMESPACE

@@ -337,6 +337,9 @@ S3method(sits_cube,default)
 S3method(sits_cube,local_cube)
 S3method(sits_cube,sar_cube)
 S3method(sits_cube,stac_cube)
+S3method(sits_detect_change,default)
+S3method(sits_detect_change,raster_cube)
+S3method(sits_detect_change,sits)
 S3method(sits_get_data,csv)
 S3method(sits_get_data,data.frame)
 S3method(sits_get_data,default)
@@ -440,6 +443,9 @@ export(sits_config)
 export(sits_config_show)
 export(sits_cube)
 export(sits_cube_copy)
+export(sits_detect_change)
+export(sits_detect_change_method)
+export(sits_dtw)
 export(sits_factory_function)
 export(sits_filter)
 export(sits_formula_linear)

R/sits_detect_change.R

@@ -38,6 +38,7 @@
 #'                           each point (tibble of class "sits")
 #'                           or a data cube indicating detections in each pixel
 #'                           (tibble of class "detections_cube").
+#' @export
 sits_detect_change <- function(data,
                                cd_method,
                                ...,
@@ -48,6 +49,7 @@ sits_detect_change <- function(data,
 }
 
 #' @rdname sits_detect_change
+#' @export
 sits_detect_change.sits <- function(data,
                                     cd_method,
                                     ...,
@@ -72,6 +74,7 @@ sits_detect_change.sits <- function(data,
 }
 
 #' @rdname sits_detect_change
+#' @export
 sits_detect_change.raster_cube <- function(data,
                                            cd_method, ...,
                                            roi = NULL,
@@ -177,6 +180,7 @@ sits_detect_change.raster_cube <- function(data,
 }
 
 #' @rdname sits_detect_change
+#' @export
 sits_detect_change.default <- function(data, cd_method, ...) {
     stop("Input should be a sits tibble or a data cube")
 }

R/sits_detect_change_method.R

@@ -12,6 +12,7 @@
 #' @return                  Change detection method prepared
 #'                          to be passed to
 #'                          \code{\link[sits]{sits_detect_change}}
+#' @export
 sits_detect_change_method <- function(samples, cd_method = sits_dtw()) {
     # set caller to show in errors
     .check_set_caller("sits_detect_change_method")

R/sits_dtw.R

@@ -19,6 +19,7 @@
 #'                       used in operations with data cubes.
 #' @return               Change detection method prepared to be passed to
 #'                       \code{\link[sits]{sits_detect_change_method}}
+#' @export
 sits_dtw <-
     function(samples    = NULL,
              ...,