diff --git a/DESCRIPTION b/DESCRIPTION index 0e62f3c2..036aed36 100644 --- 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 index 9f322217..d8f2733b 100644 --- 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