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 Oct. 23, 2023, 5:09 p.m.