R/Base.R

In BigelowLab/ndfd: A RESTful R interface to the NWS National Digital Forecast Database

#' The root class for any DWML XML structure
#'
#' @seealso \url{http://graphical.weather.gov/xml/mdl/XML/Design/MDL_XML_Design.pdf}
#' @export
#' @field node a single XML::xmlNode
DWMLBaseRefClass <- setRefClass("DWMLBaseRefClass",
    fields = list(node = 'ANY'),
    methods = list(
        initialize = function(x){
            if (!missing(x)){
                if (is_xml_node(x)){
                    .self$field("node", x)
                } else {
                    stop("input must be xml2::xml_node")
                }
            } else {
                .self$field("node", NULL)
            }
            init()
        },
        
        show = function(prefix = ""){
            cat(prefix, "Reference Class: ", methods::classLabel(class(.self)), "\n", sep = "")
        },
        
        init = function() {}
    )
                
)