R/AllClasses.R

In RedeR: Interactive visualization and manipulation of nested networks

#-------------------------------------------------------------------------------
#RedeR port class--------------------------------------------------------------
setClass ("RedPort", 
          representation = representation (title  = "character",
                                           uri    = "character",
                                           host = "character",
                                           port   = "numeric"),
          prototype = prototype (title  = "RedPort",
                                 uri    = "http://127.0.0.1:9091",
                                 host = "127.0.0.1",
                                 port   = 9091
                                 )
          )
          
#Test the validity of RRede class ---------------------------------------------
setValidity ("RedPort",
  function (object) {
      c1 = length (object@title) == 1
      c2 = length (object@uri)   == 1 
      c3 = length (object@host)  == 1 
      c4 = length (object@port)  == 1
      if (c1 && c2 && c3 && c4) TRUE
	  else cat("'title', 'uri', 'host', and 'port' must all have length 1")
    })