R/deleteToken.R

In niio972/opensilex-ws-client-r: OpenSILEX WS client R

#-------------------------------------------------------------------------------
# Program: deleteToken.R
# Objective: generic function to requests OpenSILEX WebService
# Author: A. Charleroy
# Creation: 03/09/2019
# Update: 
#-------------------------------------------------------------------------------

##' @title disconnect a user identifier for connexion to the web service

##' @return a boolean TRUE if succeeeded
##'                   FALSE if failed
##' @examples
##' \donttest{
##' disconnectFromOpenSILEXWS()
##' }
##' @export
disconnectFromOpenSILEXWS<-function(){
  if(!get("USER_VALID",configWS)) stop("You must first connect to an OpenSILEX Instance using connectToOpenSILEXWS() function")
  
  # delete WebService user session
  if(get("WS_VERSION",configWS) == 2) {
    requestBody <- list(access_token = get("TOKEN_VALUE",configWS))
    deleteResponseFromWS(resource = get("BRAPITOKEN",configWS), requestBody = requestBody)
  }
  
  
  assign("BASE_PATH","", configWS)
  assign("USERNAME","", configWS)
  assign("PASSWORD","", configWS)
  assign("TOKEN_VALID", FALSE,configWS)
  assign("USER_VALID", FALSE,configWS)
  
}