R/is_exe.R

In richelbilderbeek/plinkr: Interface to PLINK

#' Determine if a file can be executed
#' @param filename path to a filename
#' @return TRUE if the file can be executed, FALSE otherwise
#' @author Richèl J.C. Bilderbeek
#' @export
is_exe <- function(filename) {
  as.numeric(file.access(filename, mode = 1)) == 0
}