next fix otb

r-spatial · Apr 30, 2024 · aced405 · aced405
1 parent 6dfb4fa
commit aced405
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/otbControls.R b/R/otbControls.R
@@ -73,7 +73,7 @@ searchOTBW <- function(DL = "default",
 
       #raw_OTB  <- try(system(paste0("cmd.exe"," /c dir /B /S ",DL,"\\","otbcli.bat"),intern=TRUE))
       if (identical(raw_OTB, character(0))) raw_OTB <- "File not found"
-      if (grepl(raw_OTB,pattern = "File not found") | grepl(raw_OTB,pattern = "Datei nicht gefunden")) {
+      if (grepl(raw_OTB[1],pattern = "File not found") | grepl(raw_OTB[1],pattern = "Datei nicht gefunden")) {
 
         class(raw_OTB) <- c("try-error", class(raw_OTB))
       }