Merge branch 'dev' of https://github.com/e-sensing/sits into dev

Author: gilbertocamara

NAMESPACE

@@ -393,9 +393,6 @@ 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)
@@ -501,9 +498,6 @@ export(sits_config_show)
 export(sits_config_user_file)
 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,7 +38,6 @@
 #'                           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,
                                ...,
@@ -49,7 +48,6 @@ sits_detect_change <- function(data,
 }
 
 #' @rdname sits_detect_change
-#' @export
 sits_detect_change.sits <- function(data,
                                     cd_method,
                                     ...,
@@ -74,7 +72,6 @@ sits_detect_change.sits <- function(data,
 }
 
 #' @rdname sits_detect_change
-#' @export
 sits_detect_change.raster_cube <- function(data,
                                            cd_method, ...,
                                            roi = NULL,
@@ -180,7 +177,6 @@ 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,7 +12,6 @@
 #' @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

@@ -25,8 +25,6 @@
 #'                       `samples`.
 #' @return               Change detection method prepared to be passed to
 #'                       \code{\link[sits]{sits_detect_change_method}}
-#' @export
-#'
 sits_dtw <-
     function(samples    = NULL,
              ...,