R/NDFD.R

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

#' A DWML generic use class
#'
#' @field uri character
#' @include Top.R
#' @export
NDFDRefClass <- setRefClass("NDFDRefClass",

    contains = "DWMLTopRefClass", 

    fields = list(
        uri = 'character'
        ),
    
    methods = list(
        
        initialize = function(x){
            if (is.character(x)){
                .self$uri <- x[1]          
                r <- httr::GET(.self$uri)
                .self$node <- check_response(r)
                .self$init()
            }
        },
        
        browse = function(){
            if (interactive() && (nchar(.self$uri) > 0)) httr::BROWSE(.self$uri)
        },
        
        show = function(prefix = ""){
            #cat(prefix, "URI:", .self$uri, "\n", sep = "")
            callSuper(prefix = prefix)
        })
)           
        
#' Instantiate a NDFRefClass object
#' 
#' @export
#' @param query character string
#' @param baseuri character the base URI
#' @param interface the interface to use with the baseuri
#' @return NDFDRefClass object
NDFD <- function(query = NULL, 
    baseuri = "http://graphical.weather.gov/xml/sample_products/browser_interface",
    interface = c('ndfdXMLclient.php', 'ndfdBrowserClientByDay')[1]){
    
    uri <- ndfd_uri(query = query, baseuri = baseuri, interface = interface)
            
    NDFDRefClass$new(uri)
}