#' @include utils.R
#'
#' Class WTSPS.
#'
#' Class \code{WTSPS} declaration helps to define a Web Time Series Processing Service.
#'
#'@section Slots :
#' \describe{
#' \item{\code{serverURL}:}{Attribute of class \code{"character"}, URL of the server.}
#' \item{\code{algorithms}:}{Attribute of class \code{"character"}, algorithms of the server.}
#' }
#'
#' @name WTSPS-class
#' @rdname WTSPS-class
#' @exportClass WTSPS
setClass(
# Set the name for the class
Class = "WTSPS",
# Define the slots
slots = c(
serverURL = "character",
algorithms = "character"
)
)
# Constructor method of WTSPS Class.
setMethod(
# initialize function
f = "initialize",
# Method signature
signature = "WTSPS",
# Function definition
definition = function(.Object, serverURL = "character") {
# if WTSPS server URL is missing
if (missing(serverURL))
stop("Missing a WTSPS server URL")
else if (class(serverURL) != "character")
stop("WTSPS server URL type is not recognized")
# build list algorithms request string
request <- paste(serverURL, "list_algorithms", sep = "")
response <- sendRequest(request)
# parse JSON response
responseJSON <- parseResponse(response)
# assign attribute values (algorithms) to the WTSCS object
.Object@serverURL <- serverURL
.Object@algorithms <- responseJSON$algorithms
# check whether .Object is valid or not
methods::validObject(.Object)
return(.Object)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.