inst/shinyCombinePlots/conveniences.R

In NNTbiomarker: Calculate Design Parameters for Biomarker Validation Studies

`%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")