From 31296eb9b0923c171be1474ac1444dc7750f8ce2 Mon Sep 17 00:00:00 2001
From: m7pr <marcin.kosinski.mk1@roche.com>
Date: Mon, 16 Oct 2023 11:28:38 +0200
Subject: [PATCH] add blur to landingpopup

---
 R/tm_landing_popup.R | 1 +
 inst/css/custom.css  | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/R/tm_landing_popup.R b/R/tm_landing_popup.R
index 40c77efa2..618a4cd84 100644
--- a/R/tm_landing_popup.R
+++ b/R/tm_landing_popup.R
@@ -48,6 +48,7 @@ landing_popup <- function(title = NULL, content = NULL, buttons = modalButton("A
 
   showModal(
     modalDialog(
+      id = "landingpopup",
       title = title,
       content,
       footer = buttons
diff --git a/inst/css/custom.css b/inst/css/custom.css
index 5833b50ce..46431a589 100644
--- a/inst/css/custom.css
+++ b/inst/css/custom.css
@@ -85,3 +85,7 @@
   height:600px;
   width:100%
 }
+
+#shiny-modal:has(> .modal-dialog > .modal-content > #landingpopup) {
+  backdrop-filter: blur(10px);
+}