From 4fb9a782d650f205b3a870b606f8a3ee43627853 Mon Sep 17 00:00:00 2001
From: lakikowolfe <loren.wolfe@sagebase.org>
Date: Tue, 10 Sep 2024 13:59:59 -0700
Subject: [PATCH] fix dataset selection error

---
 server.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/server.R b/server.R
index f9e418ab..2424b635 100644
--- a/server.R
+++ b/server.R
@@ -279,6 +279,7 @@ shinyServer(function(input, output, session) {
         try(
           {
             scopes <- synapse_get_project_scope(id = .asset_view, auth = access_token)
+            scopes <- unique(scopes)
             scope_access <- vapply(scopes, function(x) {
               synapse_access(id = x, access = "DOWNLOAD", auth = access_token)
             }, 1L)