From 20d8334d4c2d6dc30d52066d466f516a80b74031 Mon Sep 17 00:00:00 2001
From: Attilio Mattiocco <attilio.mattiocco@gmail.com>
Date: Wed, 29 May 2024 14:21:10 +0200
Subject: [PATCH] add R function to set provider credentials

---
 RJSDMX/NAMESPACE                     |  1 +
 RJSDMX/R/SdmxClient.R                |  5 +++++
 RJSDMX/man/setProviderCredentials.Rd | 16 ++++++++++++++++
 3 files changed, 22 insertions(+)
 create mode 100644 RJSDMX/man/setProviderCredentials.Rd

diff --git a/RJSDMX/NAMESPACE b/RJSDMX/NAMESPACE
index c56501c..2bce600 100644
--- a/RJSDMX/NAMESPACE
+++ b/RJSDMX/NAMESPACE
@@ -34,5 +34,6 @@ export("getCodes")
 export("addProvider")
 export("sdmxHelp")
 export("sdmxdf")
+export(setProviderCredentials)
 importFrom("stats", "setNames")
 
diff --git a/RJSDMX/R/SdmxClient.R b/RJSDMX/R/SdmxClient.R
index f5ab95e..363e026 100644
--- a/RJSDMX/R/SdmxClient.R
+++ b/RJSDMX/R/SdmxClient.R
@@ -370,3 +370,8 @@ sdmxdf <- function(tslist, meta=FALSE, id=TRUE){
   }
   return(ddf)
 }
+
+setProviderCredentials <- function(provider, user=.jnull(), pw=.jnull()) {
+  J('it.bancaditalia.oss.sdmx.client.SdmxClientHandler')$setCredentials(provider, user, pw)
+}
+
diff --git a/RJSDMX/man/setProviderCredentials.Rd b/RJSDMX/man/setProviderCredentials.Rd
new file mode 100644
index 0000000..8438ebb
--- /dev/null
+++ b/RJSDMX/man/setProviderCredentials.Rd
@@ -0,0 +1,16 @@
+\name{setProviderCredentials}
+\alias{setProviderCredentials}
+\title{set Credentials for authenticating providers}
+\usage{
+setProviderCredentials(provider, user=.jnull(), pw=.jnull())
+}
+\arguments{
+  \item{provider}{the name of the provider}
+
+  \item{user}{the username}
+
+  \item{pw}{the password}
+}
+\description{
+Sets the credentials for providers that need authentication
+}
\ No newline at end of file