inst/shiny-squid/source/utilities/test_integer.R

# test if the number is an integer
testInteger  <- function(x){ 
  
  test <- all.equal(x, as.integer(x), check.attributes = FALSE)
  
  if(test == TRUE){ 
    return(TRUE) 
  }else{ 
    return(FALSE) 
  }
}

Try the squid package in your browser

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

squid documentation built on Jan. 22, 2022, 1:06 a.m.