R/Instrument.R

In BigelowLab/genologicsr: A simplified interface between XML nodes and the Genologics RESTful API

InstrumentRefClass <- setRefClass("InstrumentRefClass",
   contains = "NodeRefClass",
   fields = list(
      name = "character",
      type = "character"),
   methods = list( 
      initialize = function(...){
         callSuper(...)
         .self$verbs <- c("GET", "BROWSE")
         .self$update()
      },
   update = function(){
      callSuper(.self$node)
      .self$name = xml_value(.self$node[['name']]) 
      .self$type = xml_value(.self$node[['type']]) 
      },
   show = function(prefix = ""){
      callSuper(prefix = prefix)
      cat(prefix, "  Instrument name: ", .self$name, "\n", sep = "")
      cat(prefix, "  Instrument type: ", .self$type, "\n", sep = "")
      }   )
   )

#' POST is disallowed for instruments
#' @family Instrument
#' @name InstrumentRefClass_POST
NULL
InstrumentRefClass$methods(
   POST = function(){
      cat("InstrumentRefClass_POST in not a permitted transaction\n")
   })

#' PUT is disallowed for instruments
#' @family Instrument
#' @name InstrumentRefClass_PUT
NULL
InstrumentRefClass$methods(
   PUT = function(){
      cat("InstrumentRefClass_PUT in not a permitted transaction\n")
   })