From 64537c8e1b8d483e39a2c41bf411b10a33d2b27f Mon Sep 17 00:00:00 2001
From: Jeroen Ooms <jeroenooms@gmail.com>
Date: Wed, 24 Apr 2024 13:14:45 +0200
Subject: [PATCH] Try to fix Windows timeouts

---
 .github/workflows/R-CMD-check.yaml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/.github/workflows/R-CMD-check.yaml b/.github/workflows/R-CMD-check.yaml
index d0020be..fa11d97 100644
--- a/.github/workflows/R-CMD-check.yaml
+++ b/.github/workflows/R-CMD-check.yaml
@@ -44,7 +44,9 @@ jobs:
 
       - if: runner.os == 'windows'
         run: |
+          reg add HKLM\System\CurrentControlSet\Control /v ServicesPipeTimeout /t REG_DWORD /d 300000 /f
           Set-Service mongodb -StartupType Automatic
+          Start-Sleep -Seconds 3
           Start-Service -Name MongoDB
 
       - uses: r-lib/actions/setup-r@v2