Merge pull request #1 from eea/develop

Stable version

Author: mckeea

.Rbuildignore

@@ -0,0 +1,5 @@
+^.*\.Rproj$
+^\.Rproj\.user$
+.lintr
+^doc$
+^Meta$

.gitignore

@@ -0,0 +1,9 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata
+.Renviron
+hdar.Rproj
+inst/doc
+/Meta/
+/doc/

.lintr

@@ -0,0 +1,4 @@
+linters: linters_with_defaults(
+    line_length_linter(156),
+    commented_code_linter = NULL
+  )

DESCRIPTION

@@ -0,0 +1,26 @@
+Package: hdar
+Type: Package
+Title: REST API Client for Accessing Data on WEkEO HDA V2
+Version: 1.0.0
+URL: https://www.wekeo.eu/
+BugReports: https://github.com/eea/hdar/issues
+Authors@R: person("Matteo", "Mattiuzzi", email = "matteo@mattiuzzi.com", role = c("aut", "cre"))
+Maintainer: Matteo Mattiuzzi <matteo@mattiuzzi.com>
+Description: Download Copernicus data from WEkEO by means of HTTPS REST queries.
+License: EUPL (>= 1.2) | file LICENSE
+Encoding: UTF-8
+RoxygenNote: 7.3.1
+Imports:
+  R6,
+  httr2,
+  jsonlite,
+  magrittr,
+  htmltools,
+  stringr,
+  humanize
+Depends: 
+    R (>= 2.10),
+Suggests: 
+    knitr,
+    rmarkdown
+VignetteBuilder: knitr

NAMESPACE

@@ -0,0 +1,18 @@
+# Generated by roxygen2: do not edit by hand
+
+export(Auth)
+export(Client)
+export(SearchResults)
+importFrom(R6,R6Class)
+importFrom(htmltools,HTML)
+importFrom(htmltools,html_print)
+importFrom(htmltools,tagAppendChild)
+importFrom(htmltools,tagList)
+importFrom(htmltools,tags)
+importFrom(httr2,req_body_json)
+importFrom(httr2,req_method)
+importFrom(httr2,req_url_query)
+importFrom(httr2,request)
+importFrom(jsonlite,toJSON)
+importFrom(magrittr,"%>%")
+importFrom(stringr,str_detect)

R/auth.R

@@ -0,0 +1,72 @@
+#' @title Auth Class
+#'
+#' @description
+#' Authorization
+#'
+#' @importFrom R6 R6Class
+#' @importFrom magrittr %>%
+#' @export
+Auth <- R6::R6Class("Auth", # nolint: object_name_linter.
+  public = list(
+
+    #' @description
+    #' This function initializes a new instance of the `Auth` class with the specified parameters.
+    #'
+    #' @param user A character string representing the username for authentication.
+    #' @param password A character string representing the password for authentication.
+    #'
+    #' @return An instance of the `Auth` class.
+    #' @export
+    initialize = function(user = NULL, password = NULL) {
+      private$user <- user
+      private$password <- password
+    },
+
+    #' @description
+    #' This function retrieves a previously generated token.
+    #'
+    #' @return A character string representing the retrieved token.
+    #' @export
+    token = function() {
+      if (is.null(private$token_value)) {
+        self$get_token()
+      }
+      private$token_value
+    },
+
+    #' @description
+    #' This function generates a unique token for authentication or other purposes.
+    #'
+    #' @return A character string representing the generated token.
+    #' @export
+    get_token = function() {
+      url <- paste0(private$apiUrl, "/gettoken")
+
+      params <- list(
+        "username" = private$user,
+        "password" = private$password
+      )
+      req <- httr2::request(url) %>%
+        httr2::req_method("POST") %>%
+        httr2::req_body_json(params)
+
+      try(req %>% httr2::req_perform())
+      resp <- httr2::last_response()
+
+      if (resp$status_code == 200) {
+        resp_body <- resp %>% httr2::resp_body_json()
+        private$token_value <- resp_body$access_token
+        return(private$token_value)
+      }
+
+      private$token_value <- NULL
+      stop(resp$detail)
+    }
+  ),
+  private = list(
+    apiUrl = "https://gateway.prod.wekeo2.eu/hda-broker",
+    token_value = NULL,
+    user = NULL,
+    password = NULL
+  )
+)