R/checkIfAnyRmTs.R

In KarsTS: An Interface for Microclimate Time Series Analysis

checkIfAnyRmTs <-
function(action = NULL, envirName = KTSEnv) {
  if (class(KTSEnv$dSList$TS) == "character" & 
      class(KTSEnv$dSList$rm) == "character") {
    eval(call(action), envir = envirName)
  } else {
    if (is.null(KTSEnv$dSList$TS)) {
      tcltk::tkmessageBox(message = paste("There is no time series",
                                          "in the environment"),
                          icon = "warning")
      loadAllTypes()
    }
    if (is.null(KTSEnv$dSList$rm)) {
      tcltk::tkmessageBox(message = paste("There is no recurrence",
                                          "matrix in the environment"), 
                          icon = "warning")
      loadAllTypes()
    }
  }
}