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

update package version

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 = '[email protected]'),
  person('Gilberto', 'Camara', role = c('aut', 'cre'), email = '[email protected]'),

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,
  ...,