revdep/library/rfm/new/xplorerr/app-descriptr/logic/logic_mult1.R

In rsquaredacademy/rfm: Recency, Frequency and Monetary Value Analysis

output$mult1 <- renderPrint({
	num_data <- final_split$train[, sapply(final_split$train, is.factor)]
  # validate(need(!is.null(dim(num_data)), 'Data must have at least 2 factor variables.'))
  if (is.null(dim(num_data))) {
    out <- NULL
  } else if (ncol(num_data) < 2) {
    out <- NULL
  } else {
    ds_oway_tables(final_split$train)  
  }
})