R/control.R

In barryrowlingson/rwfs: An R Web Feature Service server

#' @export
startWFS <- function(){

  ## is there a server running? start one if not

  ## is there a /wfs hooked in already? error if there is

  ## hook a wfs in
  
}

#' @export
stopWFS <- function(stopServer=FALSE){

  ## remove the wfs hook

  ## if stopServer, stop the server
 
}

#' @export
refreshWFS <- function(){

  ## error if WFS not running

  ## update list of spatial objects

}