R/customCeiling.R

In idiogramFISH: Shiny App. Idiograms with Marks and Karyotype Indices

#' Function to do ceiling at different levels
#'
#' @description This function reads number to round
#'
#' @param x number to round
#' @param level level of ceiling
#'
#' @keywords internal
#' @return numeric

customCeiling <- function(x, customDecimals=1) {
  x2<-x*10^customDecimals
  ceiling(x2)/10^customDecimals
}