R/buildUrl.R

In ceparman/CoreAPI: Core API funcntions

#' buildUrl - build URL for call to Core REST API.
#'
#' \code{apiCall}  base call to Core REST API.
#' @param coreApi coreApi object with valid jsessionid
#' @param special flag for special sdk endpoints
#' @param useVerbose Use verbose communication for debugging
#' @export
#' @return RETURN Core REST URL
#' @examples
#'\dontrun{
#' api<-CoreAPI("PATH TO JSON FILE")
#' login<- CoreAPI::authBasic(api)
#' response <-CoreAPI::apiCall(login$coreApi,body,"json",useVerbose=FALSE)
#' logOut(login$coreApi )
#' }
#'@author Craig Parman
#'@description \code{buildUrl} build URL for call to Core REST API.



buildUrl<-function(coreApi,special=NULL,useVerbose=FALSE)
{

if (is.null(special)){
  sdk_url<-paste(coreApi$coreUrl,"/sdk",";jsessionid=",coreApi$jsessionId,sep="")

  } else {

  switch(special,
         login = sdk_url<-paste(coreApi$coreUrl,"/sdklogin",sep=""))


  }

  return(sdk_url)

}