inst/app-descriptr/logic/logic_mult1.R

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)  
  }
})

Try the xplorerr package in your browser

Any scripts or data that you put into this service are public.

xplorerr documentation built on Feb. 28, 2019, 5:05 p.m.