From 8a38c9a4f7294173c0c351c03c58b7993dd2250e Mon Sep 17 00:00:00 2001
From: Tomasz Kalinowski <tomasz@posit.co>
Date: Fri, 20 Sep 2024 07:46:28 -0400
Subject: [PATCH] Fix `install_miniconda(force=T)`

---
 R/miniconda.R | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/R/miniconda.R b/R/miniconda.R
index 4729140ad..436fbdff4 100644
--- a/R/miniconda.R
+++ b/R/miniconda.R
@@ -50,6 +50,11 @@ install_miniconda <- function(path = miniconda_path(),
   url <- miniconda_installer_url()
   installer <- miniconda_installer_download(url)
 
+  if (force) {
+    # miniconda installer '-u' (update) flag frequently does not work, errors.
+    miniconda_uninstall(path)
+  }
+
   # run the installer
   miniconda_installer_run(installer, update, path)