export detect change api

Author: M3nin0

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