new functionalities #4 item10 + #5 Introducing slice causes a long e…

…rror in testthat()
hurielreichel · Feb 19, 2023 · 8880354 · 8880354
1 parent 819ee8e
commit 8880354
Show file tree

Hide file tree

Showing 23 changed files with 43 additions and 36 deletions.
diff --git a/R/datacube.R b/R/datacube.R
@@ -14,8 +14,8 @@
 #' tidyopeneo and you want to come back to use tidyopeneo functions.
 #' @export
 datacube=function(id, data = NULL,
-                  .p = openeo::processes(.con),
-                  .con = openeo::connect("https://openeo.cloud")){
+                    .p = openeo::processes(.con),
+                    .con = NULL){
 
   if (is.null(id) & !is.null(data)){
     class(data) = c("datacube", class(data)) # Class definition

diff --git a/R/filter.R b/R/filter.R
@@ -38,6 +38,7 @@
 #' library(tidyopeneo)
 #' library(sf)
 #'
+#' con = connect(host = "https://openeo.cloud")
 #' dc = datacube(id = "SENTINEL_5P_L2")
 #'
 #' # filter_temporal and filter_bbox
@@ -64,7 +65,7 @@
 filter.datacube <- function(.data = NULL, ...,
                             .condition = NULL, .dimension = NULL, .context = NULL,
                             .extent = NULL, .geometries = NULL,
-                            .p = openeo::processes(.con), .con = openeo::connect("https://openeo.cloud")) {
+                            .p = openeo::processes(.con), .con = NULL) {
 
   #check dots ...
   dots = list(...)

diff --git a/R/group_by.R b/R/group_by.R
@@ -83,7 +83,7 @@
 #' @examples
 #' library(tidyopeneo)
 #' library(sf)
-#'
+#' con = connect(host = "https://openeo.cloud")
 #' # bounding box
 #' w = 6.09
 #' s = 46.15
@@ -130,7 +130,7 @@ group_by.datacube <- function(.data = NULL, ..., .period = NULL, .reducer = NULL
                               .dimension = NULL, .context = NULL,
                               .geometries = NULL, .target_dimension = "result",
                               .intervals = NULL, .labels = array(),
-                              .p = openeo::processes(.con), .con = openeo::connect("https://openeo.cloud")) {
+                              .p = openeo::processes(.con), .con = NULL) {
 
   #check dots ...
   dots = list(...)

diff --git a/R/mutate.R b/R/mutate.R
@@ -72,7 +72,7 @@
 #' @importFrom dplyr mutate
 #' @examples
 #' library(tidyopeneo)
-#'
+#' con = connect(host = "https://openeo.cloud")
 #' dc = datacube(id = "SENTINEL_5P_L2")
 #'
 #' # apply
@@ -114,7 +114,7 @@ mutate.datacube <- function(.data = NULL, ...,
                                 .kernel = NULL, .factor = 1, .border = 0,
                                 .replace_invalid = 0, .dimension = NULL, .target_dimension = NULL,
                                 .size = NULL, .overlap = NULL,
-                                .p = openeo::processes(.con), .con = openeo::connect("https://openeo.cloud")) {
+                                .p = openeo::processes(.con), .con = NULL) {
 
   #check dots ...
   dots = list(...)

diff --git a/R/rename.R b/R/rename.R
@@ -17,6 +17,7 @@
 #' @importFrom dplyr rename
 #' @examples
 #' library(tidyopeneo)
+#' con = connect(host = "https://openeo.cloud")
 #'
 #' # bounding box
 #' w = 6.09
@@ -35,7 +36,7 @@
 #'    rename(.source = "spatial", .target = "space")
 #' @export
 rename.datacube <- function(.data = NULL, ..., .source, .target,
-                            .p = openeo::processes(.con), .con = openeo::connect("https://openeo.cloud")) {
+                            .p = openeo::processes(.con), .con = NULL) {
 
   #check dots ...
   dots = list(...)

diff --git a/R/resample.R b/R/resample.R
@@ -63,6 +63,7 @@
 #' @import dplyr openeo cli
 #' @examples
 #' library(tidyopeneo)
+#' con = connect(host = "https://openeo.cloud")
 #'
 #' # bounding box
 #' w = 6.09
@@ -84,7 +85,7 @@ resample <- function(.data = NULL, .resolution = 0, .projection = NULL,
                      .method = "near", .align = "upper-left",
                      .target = NULL, .dimension = NULL,
                      .valid_within = NULL, .target_process = NULL,
-                     .p = openeo::processes(.con), .con = openeo::connect("https://openeo.cloud")) {
+                     .p = openeo::processes(.con), .con = NULL) {
   UseMethod("resample")
 }
 
@@ -94,7 +95,7 @@ resample.datacube <- function(.data = NULL, .resolution = 0, .projection = NULL,
                               .method = "near", .align = "upper-left",
                               .target = NULL, .dimension = NULL,
                               .valid_within = NULL, .target_process = NULL,
-                              .p = openeo::processes(.con), .con = openeo::connect("https://openeo.cloud")) {
+                              .p = openeo::processes(.con), .con = NULL) {
 
   # check mandatory argument
   if (is.null(.data)) {

diff --git a/R/select.R b/R/select.R
@@ -26,13 +26,14 @@
 #' @importFrom dplyr select
 #' @examples
 #' library(tidyopeneo)
+#' con = connect(host = "https://openeo.cloud")
 #' dc = datacube(id = "SENTINEL_5P_L2")
 #'
 #' dc_no2 <- dc %>% select(.bands = "NO2")
 #' @export
 select.datacube <- function(.data = NULL, ...,
                             .bands = NULL, .wavelength = NULL,
-                            .p = openeo::processes(.con), .con = openeo::connect("https://openeo.cloud")) {
+                            .p = openeo::processes(.con), .con = NULL) {
 
 
   #check dots ...

diff --git a/R/slice.R b/R/slice.R
@@ -30,6 +30,7 @@
 #' @importFrom methods as
 #' @examples
 #' library(tidyopeneo)
+#' con = connect(host = "https://openeo.cloud")
 #'
 #' dc = datacube("TERRASCOPE_S5P_L3_NO2_TD_V1")
 #'
@@ -45,7 +46,7 @@
 #' @export
 slice.datacube <- function(.data = NULL, ...,
                   n = 1, prop = NULL,
-                  .p = openeo::processes(.con), .con = openeo::connect("https://openeo.cloud")){
+                  .p = openeo::processes(.con), .con = NULL){
 
   #check dots ...
   dots = list(...)

diff --git a/R/summarise.R b/R/summarise.R
@@ -20,7 +20,7 @@
 #' @seealso [openeo::list_processes()]
 #' @examples
 #' library(tidyopeneo)
-#'
+#' con = connect(host = "https://openeo.cloud")
 #' # bounding box
 #' w = 6.09
 #' s = 46.15
@@ -39,7 +39,7 @@
 #' @export
 summarise.datacube <- function(.data = NULL, ..., .reducer = NULL,
                               .dimension = NULL, .context = NULL,
-                              .p = openeo::processes(.con), .con = openeo::connect("https://openeo.cloud")) {
+                              .p = openeo::processes(.con), .con = NULL) {
 
   #check dots ...
   dots = list(...)

diff --git a/R/summarize.R b/R/summarize.R
@@ -20,6 +20,7 @@
 #' @seealso [openeo::list_processes()]
 #' @examples
 #' library(tidyopeneo)
+#' con = connect(host = "https://openeo.cloud")
 #'
 #' # bounding box
 #' w = 6.09
@@ -39,7 +40,7 @@
 #' @export
 summarize.datacube <- function(.data = NULL, ..., .reducer = NULL,
                                .dimension = NULL, .context = NULL,
-                               .p = openeo::processes(.con), .con = openeo::connect("https://openeo.cloud")) {
+                               .p = openeo::processes(.con), .con = NULL) {
 
   #check dots ...
   dots = list(...)

diff --git a/README.md b/README.md
@@ -2,4 +2,4 @@
 
 ## Example with NDVI
 
-![NDVI Example](fig/ndvi-example.jpeg)
+![NDVI Example](doc/ndvi-example.jpeg)
diff --git a/fig/ndvi-example.jpeg b/fig/ndvi-example.jpeg
diff --git a/man/datacube.Rd b/man/datacube.Rd
diff --git a/man/filter.Rd b/man/filter.Rd
diff --git a/man/group_by.Rd b/man/group_by.Rd
diff --git a/man/mutate.Rd b/man/mutate.Rd
diff --git a/man/rename.Rd b/man/rename.Rd
diff --git a/man/resample.Rd b/man/resample.Rd
diff --git a/man/select.Rd b/man/select.Rd
diff --git a/man/slice.Rd b/man/slice.Rd
diff --git a/man/summarise.Rd b/man/summarise.Rd
diff --git a/man/summarize.Rd b/man/summarize.Rd
diff --git a/vignettes/my-vignette.Rmd b/vignettes/my-vignette.Rmd
@@ -19,7 +19,7 @@ The **tidyopeneo** package was created with the intention to make the [openeo](h
 ```{r processes, echo=TRUE}
 library(openeo)
 
-con = con = connect(host = "https://openeo.cloud")
+con = connect(host = "https://openeo.cloud")
 p = processes()
 
 dc = p$load_collection(
Original file line number	Diff line number	Diff line change
Expand Up		@@ -2,4 +2,4 @@

		## Example with NDVI

		![NDVI Example](fig/ndvi-example.jpeg)
		![NDVI Example](doc/ndvi-example.jpeg)