R/show-webprocess.R

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

setMethod("show", "webprocess", function(object){
  cat('An object of class "webprocess":\n')
  cat('url:',url(object),'\n')
  cat('algorithm:', names(algorithm(object)),'\n')
  cat('web processing service version:', version(object),'\n')
  cat('process inputs: \n')
  inputs <- inputs(object)
  inputs <- inputs[!paste0('.',names(inputs)) %in% pkg.env$private.funs]
  for (i in 1:length(inputs)){
    cat(paste0('   ',names(inputs)[i],": ",inputs[[i]], '\n'))
  }
  cat('wait:', object@wait, '\n')
  cat('email:', object@email, '\n' )
})