R/active.R

In RcmdrPlugin.lfstat: 'Rcmdr' Plug-in for Low Flow Analysis

Defines functions activelf activelfandbf isthereanRFD

Documented in activelf activelfandbf isthereanRFD

activelf <- function(){
  activeDataSetP() && inherits(justDoIt(activeDataSet()),'lfobj')
} 

  

activelfandbf <- function(){
  if( activelf()) {"baseflow" %in% Variables()}else(FALSE)
}

isthereanRFD <- function(){
  alle <- objects(envir=.GlobalEnv)
  b <- NULL
  for(ii in alle){
   b[ii] <- inherits(get(ii),"rfd")
  }
  any(b)
  }
    

Try the RcmdrPlugin.lfstat package in your browser