add blur to landingpopup

insightsengineering · Oct 16, 2023 · 31296eb · 31296eb
1 parent 4825607
commit 31296eb
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git 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
@@ -85,3 +85,7 @@
   height:600px;
   width:100%
 }
+
+#shiny-modal:has(> .modal-dialog > .modal-content > #landingpopup) {
+  backdrop-filter: blur(10px);
+}