#293 configure geonode (geonode4R) software

r-geoflow · Mar 6, 2023 · 27a5abb · 27a5abb
1 parent 1d38568
commit 27a5abb
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -70,7 +70,8 @@ Suggests:
   rmarkdown,
   dataverse
 Remotes:
-  eblondel/geometa
+  eblondel/geometa,
+  eblondel/geonode4R
 License: MIT + file LICENSE
 URL: https://github.com/r-geoflow/geoflow
 BugReports: https://github.com/r-geoflow/geoflow

diff --git a/R/geoflow_software.R b/R/geoflow_software.R
@@ -671,6 +671,21 @@ register_software <- function(){
         pwd = list(label = "Password", def = "Password for user authentication", class = "character"),
         logger = list(label = "Logger", def = "Level for 'ows4R' logger messages (NULL,INFO or DEBUG)", class = "character", choices = c("INFO", "DEBUG"))
       )
+    ),
+    #-------------------------------------------------------------------------------------------------------
+    #GEONODE CLIENT
+    #-------------------------------------------------------------------------------------------------------
+    geoflow_software$new(
+      software_type = "geonode",
+      definition = "GeoNode client powered by 'geonode4R' package",
+      packages = list("geonode4R"),
+      handler = try(geonode4R::GeoNodeManager$new, silent = TRUE),
+      arguments = list(
+        url = list(label = "URL", def = "GeoNode endpoint URL", class = "character"),
+        user = list(label = "Username", def = "Username for user authentication", class = "character"),
+        pwd = list(label = "Password", def = "Password for user authentication", class = "character"),
+        logger = list(label = "Logger", def = "Level for 'geonode4R' logger messages (NULL,INFO or DEBUG)", class = "character", choices = c("INFO", "DEBUG"))
+      )
     )
   )
   .geoflow$software <- software