add R function to set provider credentials

amattioc · May 29, 2024 · 20d8334 · 20d8334
1 parent b670db1
commit 20d8334
Show file tree

Hide file tree

Showing 3 changed files with 22 additions and 0 deletions.
diff --git 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
@@ -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
@@ -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
+}