tests/testFunctions/checkHistory.R

In j2scode/nlpStudio: Natural Language Processing Environment

checkHistory <- function(className, method, objectName, event) {
  events <- historian$searchEvents(className = className, method = method, objectName = objectName)
  event <- subset(events, event = event)
  if (nrow(event) > 0) {
    return(TRUE)
  } else {
    return(FALSE)
  }

}