tests/testthat/helper-round_dbl.R

round_dbl <- function(data, digits = 4L) {
  data[detect_dbl(data)] <- lapply(data[detect_dbl(data)], round, digits = digits)
  data
}

detect_dbl <- function(data) {
  unlist(lapply(data, is.double))
}

Try the r2dii.match package in your browser

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

r2dii.match documentation built on June 22, 2024, 9:38 a.m.