From 5d7d51bf4ff3f3c07ef4b74810f990b337382f13 Mon Sep 17 00:00:00 2001
From: "Win Cowger, PhD" <wincowger@gmail.com>
Date: Tue, 28 May 2024 15:58:44 -0700
Subject: [PATCH] add support for hdr dat in read any

---
 R/read_multi.R | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/R/read_multi.R b/R/read_multi.R
index 4cb1f544..36e08476 100644
--- a/R/read_multi.R
+++ b/R/read_multi.R
@@ -40,7 +40,10 @@
 #'
 #' @export
 read_any <- function(file, ...) {
-  if(length(file) > 1){
+  if(length(file) == 2 & any(grepl("(\\.dat$)", ignore.case = T, file)) & any(grepl("(\\.hdr$)", ignore.case = T, file))){
+    os <- read_envi(file = file[grepl("(\\.dat$)", ignore.case = T, file)], header = file[grepl("(\\.hdr$)", ignore.case = T, file)], ...)
+  }
+  else if(length(file) > 1){
     os <- read_many(file = file, ...)
   }
   else if (grepl("(\\.zip$)", ignore.case = T, file)) {