R/is_local.R

In neurogenomics/PeakyFinders: Mining, Calling, and Importing Epigenomic Peaks in R

#' Is local
#' 
#' Determine whether a file exist locally.
#' @param path Path to local file or remote URL.
#' @keywords internal 
#' @returns boolean.
is_local <- function(path) {
    # ssh.utils::file.exists.remote(file = path) # Doesn't work?
    (!is_url(path)) && (file.exists(path))
}