inst/bn/check.discrete.R

In SAFE-ICU/wiseR: A Shiny Application for End-to-End Bayesian Decision Network Analysis and Web-Deployment

check.discrete<-function(DiscreteData)
{
  if(sum(sapply(DiscreteData,is.numeric))>0)
  {
    shinyalert("Data has numeric variables, use discretization options under pre-process tabs", type = "info")
    return(TRUE)
  }
  else
  {
    return(FALSE)
  }
}