R/helpers.R

Defines functions .check_dev

.check_dev <- function(dev, path) {
  path <- unclass(path)
  if (!lapply(path$device, identical, dev) |> unlist() |> all())
    stop("Virtual path needs to point to a path on the same device as 'dev'")
}

Try the adfExplorer package in your browser

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

adfExplorer documentation built on April 3, 2025, 7:45 p.m.