wip: debugging SIC under wine

Refs #5

.Rbuildignore

@@ -6,3 +6,4 @@
 [.]INI$
 ^\.gitlab-ci\.yml$
 ^ci$
+^\.devcontainer$

DESCRIPTION

@@ -26,4 +26,5 @@ Imports:
     terra,
     tidyquery,
     tidyr,
+    xfun,
     xml2

R/sic_run_fortran.R

@@ -86,11 +86,17 @@ sic_run_fortran <- function(cfg, prog, params) {
     type = "cmd2"
   )
   logger::log_debug(cmd_line)
-  shell(
-    cmd_line,
-    wait = T,
-    translate = T
-  )
+  if (xfun::is_windows()) {
+    r <- shell(
+      cmd_line,
+      wait = T,
+      translate = T
+    )
+  } else {
+    r <- system(paste("wine", cmd_line))
+  }
+  attr(r, "cmd_line") <- cmd_line
+  return(r)
 }
 
 #' @noRd