Bugfix/32

inst/emptystate.js

@@ -75,6 +75,18 @@ function hideEmptyState(message) {
   resizeObserver.unobserve(elementToReplace);
 }
 
+function shiny_emptystate_updatePosition(id){
+  const elementWithEmptyState = findElementById(id);
+  const emptyStateContainer = elementWithEmptyState.querySelector(".empty-state-container");
+
+  const parentElement = emptyStateContainer.parentElement;
+  emptyStateContainer.style.height = parentElement.offsetHeight + "px";
+  emptyStateContainer.style.width = parentElement.offsetWidth + "px";
+  emptyStateContainer.style.left = parentElement.offsetLeft + "px";
+  emptyStateContainer.style.top = parentElement.offsetTop + "px";
+}
+
+
 $(function() {
   Shiny.addCustomMessageHandler("showEmptyState", showEmptyState)
   Shiny.addCustomMessageHandler("hideEmptyState", hideEmptyState)

tests/testthat/helper.R

@@ -26,3 +26,46 @@ test_app <- function() {
     }
   )
 }
+
+test_slider_app <- function() {
+  shiny::shinyApp(
+    ui = shiny::fillPage(
+      use_empty_state(),
+      shiny::actionButton(
+        "toggle_pannel",
+        "Toggle panel",
+        class = "btn btn-primary",
+        onClick = "$('#container1').toggle(anim = 'slide',
+        function(){shiny_emptystate_updatePosition('container2')});"
+      ),
+      shiny::div(
+        style = "width: 300px",
+        class = "d-flex flex-column gap-5",
+        shiny::div(
+          id = "container1",
+          shiny::div(
+            shiny::h1("Card 1"),
+            "Card content"
+          )
+        ),
+        shiny::div(
+          id = "container2",
+          shiny::div(
+            shiny::h1("Card 2"),
+            "Card content"
+          )
+        )
+      )
+    ),
+    server = function(input, output) {
+      empty_state_content <- shiny::div(
+        "This is example empty state content"
+      )
+      empty_state_manager <- EmptyStateManager$new(
+        id = "container2",
+        html_content = empty_state_content
+      )
+      empty_state_manager$show()
+    }
+  )
+}

tests/testthat/test-empty_state.R

@@ -56,6 +56,14 @@ describe("EmptyStateManager", {
     expect_null(app$get_html(selector = ".empty-state-content"))
     app$stop()
   })
+
+  it("checks the empty state component follows slider from id", {
+    app <- shinytest2::AppDriver$new(test_slider_app(), name = "slide_tag")
+    app$expect_values()
+    app$click("toggle_pannel")
+    app$expect_values()
+    app$stop()
+  })
 })
 
 describe("use_empty_state()", {