From bab35f19e465f2365a0b5d92fc29b7aff984d929 Mon Sep 17 00:00:00 2001
From: Jan Marvin Garbuszus <jan.garbuszus@rub.de>
Date: Tue, 10 Sep 2024 08:04:10 +0200
Subject: [PATCH] replace std::regex which might cause issues on certain
 operating systems

---
 src/write_file.cpp | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/src/write_file.cpp b/src/write_file.cpp
index e9bb0d4a..30653d89 100644
--- a/src/write_file.cpp
+++ b/src/write_file.cpp
@@ -1,6 +1,5 @@
 
 #include "openxlsx.h"
-#include <regex>
 
 
 //' @import Rcpp
@@ -161,6 +160,19 @@ SEXP buildMatrixNumeric(CharacterVector v, IntegerVector rowInd, IntegerVector c
 }
 
 
+// from openxlsx2:
+// similar to is.numeric(x)
+// returns true if string can be written as numeric and is not Inf
+// @param x a string input
+bool is_double(std::string x) {
+  char *endp;
+  double res;
+  res = R_strtod(x.c_str(), &endp);
+  if (isBlankString(endp) && std::isfinite(res)) {
+    return 1;
+  }
+  return 0;
+}
 
 
 // [[Rcpp::export]]
@@ -232,7 +244,7 @@ SEXP buildMatrixMixed(CharacterVector v,
           try{
             // Some values are incorrectly detected as dates. This regex determines if they are numerics.
             // If so, they are converted to Dates. 
-            if (std::regex_match( dt_str, std::regex( ( "((\\+|-)?[[:digit:]]+)(\\.(([[:digit:]]+)?))?" ) ) )) {
+            if (is_double(dt_str)) {
               datetmp[ri] = as<Rcpp::Date>(cTD(dt_str));
             } else {
               datetmp[ri] = Rcpp::Date(atoi(dt_str.substr(5,2).c_str()), atoi(dt_str.substr(8,2).c_str()), atoi(dt_str.substr(0,4).c_str()) );