From 932f31d2a2ebb20f8a9135c0d7d3b07598e20eae Mon Sep 17 00:00:00 2001
From: "Martin R. Smith" <1695515+ms609@users.noreply.github.com>
Date: Thu, 5 Oct 2023 11:14:29 +0100
Subject: [PATCH] Replace deprecated functions

---
 inst/treespace/app.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/inst/treespace/app.R b/inst/treespace/app.R
index e623dfc7..f4d727f7 100644
--- a/inst/treespace/app.R
+++ b/inst/treespace/app.R
@@ -1362,9 +1362,9 @@ server <- function(input, output, session) {
       cl <- clusterings()
       proj <- mapping()
       withProgress(message = "Drawing 3D plot", {
-        rgl::rgl.open(useNULL = TRUE)
+        rgl::open3d(useNULL = TRUE)
         incProgress(0.1)
-        rgl::rgl.bg(color = "white")
+        rgl::bg3d(color = "white")
         rgl::plot3d(proj[, 1], proj[, 2], proj[, 3],
              aspect = 1, # Preserve aspect ratio - do not distort distances
              axes = FALSE, # Dimensions are meaningless