R/algorithmVersion-webprocess.R

In eric-erki/geoknife: Web-Processing of Large Gridded Datasets

algorithmVersion <- function(knife){
  getCaps <- gGET(url(knife), query = list(
    'service' = 'WPS', 'version' = version(knife),'request' = 'DescribeProcess', 'identifier'=algorithm(knife)[[1]]))
  doc <- gcontent(getCaps)
  version <- xml2::xml_attrs(xml2::xml_find_all(doc,'//ProcessDescription', 
                                 ns = pkg.env$NAMESPACES)[[1]])[['processVersion']]
  return(version)
}