From c40174df28b3084e05675ec95ef36f84a01150fa Mon Sep 17 00:00:00 2001
From: Jeroen Ooms <jeroenooms@gmail.com>
Date: Wed, 24 Apr 2024 13:38:02 +0200
Subject: [PATCH] Repeat until success

---
 .github/workflows/R-CMD-check.yaml | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/.github/workflows/R-CMD-check.yaml b/.github/workflows/R-CMD-check.yaml
index b61c9e2..9e4f77c 100644
--- a/.github/workflows/R-CMD-check.yaml
+++ b/.github/workflows/R-CMD-check.yaml
@@ -45,9 +45,11 @@ jobs:
       - if: runner.os == 'windows'
         run: |
           Set-Service mongodb -StartupType Automatic
-          Set-Service mongodb -StartupType Automatic
-          Set-Service mongodb -StartupType Automatic
-          Start-Service -Name MongoDB
+          Do {
+              Start-Service MongoDB
+              Start-Sleep -Seconds 10
+              $Service = Get-Service MongoDB
+          } Until ($Service.Status -eq "Running")
 
       - uses: r-lib/actions/setup-r@v2
         with: