From acef2afeb969582a237d4e944e789cc8c783156f Mon Sep 17 00:00:00 2001
From: Batool Almarzouq <53487593+BatoolMM@users.noreply.github.com>
Date: Wed, 27 Nov 2024 14:56:52 +0000
Subject: [PATCH] Update R/browse_metadata.R

Co-authored-by: Rachael Stickland <50215726+RayStick@users.noreply.github.com>
---
 R/browse_metadata.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/browse_metadata.R b/R/browse_metadata.R
index c5b6772..d3228fd 100644
--- a/R/browse_metadata.R
+++ b/R/browse_metadata.R
@@ -153,7 +153,7 @@ browse_metadata <- function(json_file = NULL, output_dir = NULL) {
   # SAVE PLOTS ----
 
   original_wd <- getwd()
-  on.exit(output_dir) # saveWidget has a bug with paths & saving
+ on.exit(setwd(original_wd)) # saveWidget has a bug with paths & saving
   base_fname <- paste0(gsub(" ", "", dataset_name), "_V", dataset_version)
 
   ## Save the table plot to a HTML file