R/print.server.R

In jwist/visualizeR: visualize metabolomics data interactively

#' S3 method to print server objects (S4)
#'
#' A print method for \emph{serverURL} objects
#'
#' @param x server object
#' @param ... parameters of the print generic method
#' @return a string of character, a URL
#' @examples
#'
#' s <- new("server")
#' print(s)
#'
#' @export

print.server <- function(x, ...){
  if (x@port == 0) {
    paste0(x@protocole, x@baseURL, x@path)
  } else {
    paste0(x@protocole, x@baseURL, ":", x@port, x@path)
  }

}