From 091769258571505297c39d0340d85b276f8371c1 Mon Sep 17 00:00:00 2001
From: Christian Panse <cp@fgcz.ethz.ch>
Date: Fri, 23 Aug 2024 09:53:47 +0200
Subject: [PATCH] feat: add additional mono check

---
 DESCRIPTION         | 2 +-
 R/rawrr.R           | 5 +++++
 vignettes/rawrr.bib | 8 +-------
 3 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 2cf7fb1..2f6a411 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: rawrr
 Type: Package
 Title: Direct Access to Orbitrap Data and Beyond
-Version: 1.13.0
+Version: 1.13.1
 Authors@R: c(person("Christian", "Panse",
         email = "cp@fgcz.ethz.ch",
         role = c("aut", "cre"),
diff --git a/R/rawrr.R b/R/rawrr.R
index cebde53..c4c9e3c 100644
--- a/R/rawrr.R
+++ b/R/rawrr.R
@@ -87,6 +87,7 @@
   function(rawfile, input, rawrrArgs="scans", tmpdir=tempdir(),
            removeTempfile=TRUE){
     
+
     mono <- if(Sys.info()['sysname'] %in% c("Darwin", "Linux")) TRUE else FALSE
     exe <- .rawrrAssembly()
     
@@ -101,6 +102,10 @@
     }
     
     if (mono){
+      if (system2(command = "/usr/bin/which", args = c("mono"),
+            stderr = FALSE, stdout = FALSE) != 0){
+        stop("mono is not available; please check https://www.mono-project.com/")
+      }
       rvs <- system2(Sys.which("mono"), args = c(shQuote(exe),
                                                  shQuote(rawfile),
                                                  rawrrArgs, shQuote(tfi),
diff --git a/vignettes/rawrr.bib b/vignettes/rawrr.bib
index 405e2ae..ad41211 100644
--- a/vignettes/rawrr.bib
+++ b/vignettes/rawrr.bib
@@ -147,14 +147,8 @@ @article{Gehrig2020
   journal = {Journal of the American Society for Mass Spectrometry}
 }
 
-
-
-
-
-
 @book{newS,
-  author = {Richard A. Becker and John M. Chambers and Allan
-                  R. Wilks},
+  author = {Richard A. Becker and John M. Chambers and Allan R. Wilks},
   title = {The New {S} Language},
   publisher = {Chapman \& Hall},
   year = 1988,