inst/shinyElicit/conveniences.R

`%between%` = function(a,b) (a >= b[1] & a <= b[2])

wasClicked =  function(button) {
  if(exists("input"))
    if(!is.null(button) ) {
      if(button > 0) {
        return(TRUE)
      }
    }
  return(FALSE)
}
assign("%&%",  function (a, b) paste(a, b, sep = ""))
catn = function(...) cat(..., "\n")
professorbeautiful/NNTbiomarkerHome documentation built on June 7, 2019, 8:28 a.m.