From 7ac724e06a0f275355d7fb505b26e77ff451a536 Mon Sep 17 00:00:00 2001
From: Aleksander Chlebowski <114988527+chlebowa@users.noreply.github.com>
Date: Thu, 21 Mar 2024 08:41:41 +0100
Subject: [PATCH] isolate vals selection
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Co-authored-by: Dawid Kałędkowski <6959016+gogonzo@users.noreply.github.com>
Signed-off-by: Aleksander Chlebowski <114988527+chlebowa@users.noreply.github.com>
---
 R/data_extract_filter_module.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/data_extract_filter_module.R b/R/data_extract_filter_module.R
index ff7c08be..c90866a0 100644
--- a/R/data_extract_filter_module.R
+++ b/R/data_extract_filter_module.R
@@ -85,7 +85,7 @@ data_extract_filter_srv <- function(id, datasets, filter) {
           inputId = ns("vals"),
           label = filter$label,
           choices = vals_options()$choices,
-          selected = vals_options()$selected,
+          selected = isolate(vals_options()$selected),
           multiple = filter$multiple,
           fixed = filter$fixed
         )